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ABSTRACT 


This  thesis  presents  a stochastic  simulation  model  of  Field  Artil- 
lery that  is  designed  to  be  used  in  conjunction  with  the  Simulation  of 
Tactical  Alternative  Responses  (STAR)  battalion  combat  model.  The 
tactics  modeled,  the  assumptions  made,  and  the  interface  requirements 
are  detailed,  with  the  computer  code  that  is  used  to  execute  the  model 
included.  A clustering  algorithm  that  was  developed  to  simulate  the 
grouping  of  detected  vehicles  by  the  forward  observer  is  discussed. 

A typical  simulated  fire  mission  is  presented  with  computer  plots  of 
each  element  of  the  fire  mission,  accompanied  by  the  computer  output 
that  details  the  interactions . This  graphical  presentation  will  enable 
the  reader  to  better  appreciate  the  potential  applications  of  the 
model.  The  input  requirements  to  use  the  model  are  explained  so  that 
this  thesis  could  become  the  initial  user's  manual  for  future  applica- 
tions of  the  FA  model  with  the  STAR  model.  The  design  requirements 
for  an  FA  model  to  support  the  brigade  version  of  the  STAR  model  are 
discussed. 
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INTRODUCTION 


"The  instruments  of  battle  are  valuable  only  if  one  knows  how  to 
use  them." 

Ardant  du  Pi cq 

The  nature  of  combat  prevents  "practice"  before  hostilities.  Peace- 
time exercises  do  not  faithfully  represent  the  actions  of  war.  The 
analyst,  then,  must  use  models  of  combat  to  help  develop  equipment  and 
operational  techniques  for  the  future  battlefield.  A number  of  combat 
-models  have  been  developed  using  observed  and  assumed  relationships 
between  the  relevant  combat  processes.  The  quantitative  results  and 
the  understanding  gained  from  such  models  assist  in  determining  the 
most  effective  mixture  of  weapons  systems.  The  purpose  of  this  thesis 
is  to  model  the  Field  Artillery's  contribution  to  the  Central  Battle. 

This  model  is  designed  to  interface  with  and  become  part  of  an  up- 
dated version  of  the  Simulation  of  Tactical  Alternative  Responses 
vSTAR)  combined  arms  node 1 developed  by  Wallace  and  Hagewood  tRef.  1]. 
Written  in  the  Simscript  simulation  language,  the  STAR  model  is  a mid- 
resolution stochastic  computer  simulation  of  combat  between  a 'J.S. 
(Slue)  3attalion  and  a Warsaw  Pact  (Red)  Regiment.  This  ~ i e 1 d Artil- 
lery model  is  a module  that  adds  a simulation  of  Field  Artillery  to 
the  STAR  -model  . 

The  Field  Artillery  ^FA)  model  considers  the  major  Field  Artillery 
events  and  actions  that  occur  in  the  process  of  fighting  the  battle. 
Although  it  is  a simplification  and  approximati on  of  the  real  flow  of 
events,  it  portrays  the  fabric  of  the  FA  battle. 
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The  process  of  model  building  and  analysis  is  iterative.  This 
model  builds  on  the  logic  of  a previous  model  developed  by  Kelleher 
[Ref.  2].  The  Kelleher  model  represented  a single  Blue  Field  Artillery 
battery  with  simplified  target  acquisition  and  damage  assessment  func- 
tions. The  model  presented  here  has  a number  of  enhancements:  detailed 
target  acquisition,  damage  assessment,  two-sided  artillery,  and  mul- 
tiple representation  of  artillery  elements.  Chapter  III  details  the 
assumptions,  tactics,  and  procedures  used  to  model  the  Blue  artillery. 

The  Red  artillery  representation  is  discussed  in  Chapter  IV.  In 
consonance  with  Warsaw  Pact  doctrine,  the  majority  of  the  fires  were 
preplanned.  The  Red  artillery  was  modeled  at  a lower  level  of  resolu- 
tion than  the  Blue  artillery  due  to  a smaller  available  data  base. 

The  logic  and  the  computer  code  used  in  the  Field  Artillery  model 
are  explained  in  Chapter  V.  As  background  material,  the  STAR  model  and 
the  Simscript  language  are  described.  Each  routine  and  event  in  the  FA 
program  is  explained;  the  variables  are  described;  and  a listing  of 
the  code  is  given.  Routines  and  events  from  the  basic  STAR  model 
which  required  modification  are  presented  at  the  end  of  the  chapter. 

Chapter  VI  presents  a typical  fire  mission  from  a production  run 
of  the  model.  The  term  production  is  used  to  describe  the  STAR  model 
with  the  Field  Artillery  module  added.  At  selected  times  in  the  pro- 
cessing of  the  mission,  a plot  was  made  of  the  artillery  elements  in- 
volved in  the  fire  mission.  These  plots  are  accompanied  by  the  detailed 
computer  printout  for  that  phase  of  the  fire  mission. 

Chapter  VII  enumerates  possible  extensions  of  the  battalion  level 
FA  model.  Recommendations  for  enhancements  in  the  areas  of  target 
acquisition,  command  and  control , ammunition,  and  damage  assessment  are 
given . 
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Since  the  STAR  model  will  become  a brigade  model,  Chapter  VIII  pre- 
sents the  methodology  for  extension  and  modification  of  the  FA  model  to 
fit  brigade  requirements.  Additions  include  counterfires  between 
artillery  units,  movement  of  artillery,  higher  resolution  of  command 
and  control  functions,  and  additional  target  acquisition  capability. 

Appendix  A describes  the  input  required  to  run  the  model  with  the 
current  version  of  STAR.  The  data  are  described,  the  arrays  enumerated, 
and  the  format  discussed.  A user  should  be  able  to  design  appropriate 
input,  based  on  the  presentation  in  this  appendix. 

The  current  version  of  the  model  is  built  to  portray  the  Central- 
European  battle  in  1986.  Assumptions  about  equipment,  tactics,  and 
organizations  were  based  on  the  experience  of  the  author  and,  in 
general,  were  validated  by  the  United  States  Training  and  Doctrine 
Command.  This  model  is  not  a full  presentation  of  actual  combat: 
modeling  simplifications  have  been  made  in  several  areas.  In  the 
opinion  of  the  author,  none  of  these  simplifications  are  critical  to 


the  model  . 


II.  THE  FIELD  ARTILLERY  SYSTEM 


Success  on  today's  battlefield  requires  a well  trained  combined 
arms  team.  One  of  the  members  of  this  team  Is  the  Field  Artillery, 
whose  mission  is  to  suppress,  neutralize,  or  destroy  the  enemy  using 
cannon,  rocket,  and  missile  fires  and  to  Integrate  all  supporting 
fires  into  combined  arms  operations  [Ref.  3].  To  support  this  mission, 
there  are  three  major  categories  of  artillery  fires:  (I)  indirect 
fires  in  support  of  the  maneuver  forces,  (2)  counterfires  against  enemy 
indirect  fire  systems,  and  (3)  interdiction  fires  on  the  enemy  second 
echelon.  The  counterfire,  interdiction,  and  fire  support  coordination 
functions  are  not  addressed  in  this  version  of  the  model . 

Support  of  maneuver  forces  requires  the  artillery  to  fire  where 
ground  elements  are  fighting  the  Central  Battle.  In  the  European 
scenario,  the  enemy  in  the  Central  Battle  may  be  characteri zed  in 
artillery  terms  as  composed  of  many  moving,  armored  targets.  Target 
location  is  very  difficult  for  the  forward  observer  (FO)  of  the  fire 
support  team  (FIST).  The  FO  must  estimate  the  target's  location,  speed, 
direction,  and  the  time  until  the  artillery  rounds  impact.  3ased  on 
these  assessments,  the  FO  estimates  where  the  target  will  be  when  the 
rounds  land.  When  the  rounds  do  actually  detonate,  they  must  be  very 
close  to  the  target  to  achieve  any  kind  of  damage.  Oue  to  round-to- 
round  delivery  errors,  artillery  is  most  appropriate  for  attack  of 
personnel,  thinly  armored,  and  other  ''soft"  targets  [Ref.  4[.  To  the 
knowledge  of  this  author,  the  total  contribution  of  the  artillery  to 
the  Central  Battle  has  not  been  accurately  measured  in  quantitative 
terms,  particularly  in  the  area  of  suppression.  It  is  relatively  easy 
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to  determine  if  a target  Is  destroyed  but  the  effect  of  artillery  on 
the  human  combat  process  Is  more  difficult  to  quantify.  For  example, 
even  if  an  artillery  round  misses  an  enemy  rifleman  by  50  meters,  the 
shock,  noise,  and  dust  that  result  may  degrade  the  accuracy  of  his 
fi  re . 

The  author  assumes  that  there  will  be  different  levels  of  damage 
by  artillery  against  hard  targets.  In  addition  to  destroying  vehicles, 
artillery  can  disrupt  or  slow  a column  of  enemy  vehicles,  cause  them 
to  disperse,  or  degrade  their  vision.  The  other  members  of  the  combined 
arms  team  are  then  in  a better  position  to  destroy  the  targets  in  that 
column  with  direct  fire. 

The  most  effective  method  of  accomplishing  the  Field  Artillery 
mission  is  through  the  coordinated  employment  of  all  elements  of  the 
Field  Artillery  system.  These  elements  are  target  acquisition, 
gunnery,  weapons  and  ammunition,  and  command  and  control.  Target  ac- 
quisition is  the  process  of  detection,  identification,  and  reporting 

of  the  target.  Accurate  and  responsive  target  acquisition  is  required 

« 

if  targets  are  to  be  effectively  attacked.  A number  of  target  acquisi- 
tion devices  are  available  within  the  Field  Artillery  system.  Human 
observers,  called  forward  observers  (FOs),  accompany  the  maneuver 
forces  on  the  battlefield.  These  observers,  who  comprise  a fire  support 
team  (FIST),  provice  both  target  acquisition  and  fire  support  coordina- 
tion to  the  company  team.  (The  FIST  configuration  modeled  has  <.ne 
forward  observer.)  Other  means  of  acquisition  available  within  the 
Field  Artillery  system  include  movi ng-target  radars,  indirect  fire 
weapon-locating  radars,  sound-ranging  bases,  flash-ranging  observation 
posts,  and  aerial  observers.  Outside  the  Field  Artillery,  intelligence 


14 


agencies  collect  combat  information  that  can  be  converted  into  target 
information. 

The  second  element,  gunnery,  is  the  process  of  transforming  target 
information  into  firing  data.  The  fire  direction  officer  (FDO), 
located  in  the  firing  unit  fire  direction  center  (FDC),  decides  how  to 
attack  the  target.  He  considers  the  type  and  amount  of  ammunition  re- 
quired, the  number  of  weapons  to  fire,  the  method  of  attack,  the 
accuracy  of  location,  and  the  time  of  detection.  Upon  the  completion 
of  this  analysis  by  the  FDO,  the  firing  data  are  computed  by  a field 
artillery  digital  automatic  computer  (FADAC).  Gun  crew  personnel  re- 
ceive the  firing  data,  load  the  ammunition,  position  the  weapon,  and 
fire  the  projectile  towards  the  enemy.  Two  types  of  missions  are  most 
often  fired  at  the  firing  unit  level.  The  first  is  an  adjustment 
mission  in  which  the  firing  unit  begins  by  firing  a single  round.  When 
this  round  lands,  the  FO  spots  the  location  of  the  impact  in  relation 
to  the  target  and  sends  a correction  to  the  FDC.  The  FDC  computes  new 
firing  data  and  the  firing  unit  fires  a new  round.  When  the  FO  ob- 
serves the  most  current  round  impact  close  enough  to  the  target  that 
he  is  confident  that  he  can  move  the  next  round  onto  the  target,  he 
indicates  that  the  mission  should  enter  the  fire  for  effect  ( FFE ) 
phase,  in  which  multiple  weapons  fire.  This  type  of  mission  is  most 
appropriate  for  targets  which  are  moving  and  targets  with  a large 
target  location  error;  however,  it  is  less  effective  than  the  second 
type  of  mission,  which  is  fire  for  effect  (FFE)  with  no  adjustment. 

This  type  mission  is  appropriate  for  static  targets  which  have  a small 
target  location  error  and  for  soft  dispersed  targets  where  precision 
is  not  required,  but  in  which  surprise  is  essential.  The  use  of  FFE 
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fires  and  mass  fires  (in  which  a number  of  artillery  units  fire  upon  the 
same  target  at  the  same  time)  maximize  the  damage  to  enemy  targets. 

Field  Artillery  weapon  systems  currently  available  within  the 
armored  division  are  the  155mm  howitzer  and  the  203mm  howitzer;  the 
general  support  rocket  system  (GSRS)  is  scheduled  to  be  fielded  to  the 
division  in  1986.  Types  of  ammunition  for  cannons  include  high  explo- 
sive (HE),  dual  purpose  improved  conventional  munitions  (DPICM), 
family  of  scatterable  mines  (FASCAM) , and  smoke.  As  an  area  fire  sys- 
tem, the  Field  Artillery  is  limited  in  its  ability  to  destroy  point 
targets  without  considerable  expenditure  of  ammunition.  Under  develop- 
ment, however  are  155mm  laser-guided  projectiles  (cannon  launched 
guided  projectiles)  which  will  allow  the  Field  Artillery  to  fire 
against  point  targets  with  a high  probability  of  a first  round  hit. 

The  fourth  element  of  the  Field  Artillery  system  is  command  and 
control.  Planning  and  coordination  insure  proper  allocation  of 
artillery  fire,  a scarce  resource  on  the  battlefield,  to  support  the 
battle.  The  allocation  of  artillery  assets  among  direct  support  fires, 
interdiction,  and  counterfire  plays  a large  part  in  the  successful  use 
of  the  Field  Artillery.  Effective  command  and  control  ensures  that 
the  Field  Artillery  system  provides  responsive  and  accurate  fire 
support. 
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III.  BLUE  REPRESENTATION 


A.  GENERAL 

The  Blue  artillery  force  was  modeled  at  a high  level  of  resolution 
because  a large  data  base  was  available  concerning  Blue  equipment  and 
operational  techniques.  A number  of  assumptions  and  simplifications 
were  made  in  designing  the  Blue  operations:  all  were  based  on  the 
scenario  for  which  the  model  was  Initially  designed. 

I)  The  specific  Field  Artillery  system  modeled  was  a 'slice'  of  a 
direct  support  FA  battalion  and  its  reinforcing  artillery.  This  'slice' 
consisted  of  one  155mm  M109A1  battery  and  one  reinforcing  203mm  M110A1 
battery.  The  155mm  battery  was  in  direct  support  ( DS ) of  the  Blue 
battalion.  It  consisted  of  two  fire  direction  centers  and  two  four-gun 
firing  units.  Each  FDC  and  firing  unit  worked  together  as  a 'mini- 
battery'. The  203mn  battery  consisted  of  one  FDC  and  one  four-gun 
firing  unit.  The  Blue  battalion  had  three  FIST  teams,  located  in  the 
vicinity  of  the  company  team  commanders  that  they  supported.  Target 
acquisition  was  the  only  FIST  function  modeled.  The  FIST  was  configured 
for  an  armored  division  with  one  F0  per  company  team.  Each  F0  was 
equipped  with  both  a laser  rangefinder  and  a position  locating  device. 
Riding  in  a special  F0  vehicle,  the  FO  did  not  engage  any  enemy  vehicles 
with  direct  fire.  If  the  FO  and  his  vehicle  were  destroyed,  the  target 
acquisition  function  would  be  transferred  to  one  of  the  surviving 
platoon  leaders  in  his  company.  (In  current  production  runs , the  FO 
was  not  ever  killed  because  he  did  not  give  his  position  away  through 
direct  fire.)  This  alternate  FO  would  continue  to  engage  the  enemy 
with  direct  fire  and,  in  addition,  would  call  in  artillery;  there  was  no 
special  equipment  for  the  alternate  FO. 
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2)  Both  HE  and  DPICM  ammunition  types  were  available  for  the  Blue 
forces.  Since  the  battle  modeled  was  short,  all  targets  were  armored, 
and  there  were  no  ammunition  constraints,  DPICM  was  used  exclusively 
by  the  Blue  artillery.  The  commander's  guidance  was  assumed  to  have 
specified  suppression  fires.  (It  was  assumed  that  four  volleys  would 
be  sufficient  for  suppression  effects  since  cannon  launched  guided 
projectiles  were  not  available.) 

3)  Each  firing  unit  fired  one  mission  at  a time.  Since  all 
targets  were  moving  targets,  all  missions  were  adjustment  missions. 

4)  Each  FDC  was  allowed  to  accept  up  to  two  missions  to  process 
at  any  one  time.  Missions  were  sent  to  the  reinforcing  battery  only 
if  both  DS  FDC's  had  at  least  one  mission. 

5)  The  firing  units  did  not  mass  fires.  Mass  fires  are  the  com- 
bined fires  of  many  artillery  units  against  the  same  target  at  the 
same  time. 

6)  The  model  was  designed  to  allow  the  user  to  specify  the  maximum 
number  of  missions  that  one  FO  was  allowed  to  process  simultaneously. 
Initial  analysis  indicated  that  one  way  to  increase  the  FO's  effect 
against  moving  targets  was  to  fire  one  mission  at  a time.  Because  the 
targets  were  moving  at  five  to  six  meters  per  second,  any  mission  that 
had  to  wait  became  'stale'  very  quickly. 

7)  All  missions  fired  were  adjusted  by  the  FO.  The  FO  was  allowed 
to  enter  fire  for  effect  (FFE)  if  the  radial  miss  distance  of  the  ad- 
justing round  was  within  a given  tolerance  (a  user  input  value).  A 
tolerance  of  300  meters  was  chosen  for  use  in  production  runs  because 
the  FO  was  operating  in  a defensive  situation  and  had  had  an  opportunity 
to  conduct  a terrain  analysis.  It  was  felt  therefore  that  the  FO  could 
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move  the  volley's  effects  onto  the  target  with  one  final  correc- 
tion. 

8)  Coordination  in  the  FDC  precluded  different  FOs  from  firing  at 
the  same  target.  As  each  mission  was  processed  by  an  FDC,  the  target's 
location  was  checked  against  all  other  current  missions.  This  simu- 
lated the  fire  support  coordination  that  would  preclude  duplication  of 
targets.  The  tolerance  allowed  between  the  aim-points  of  fire  missions 
was  an  input  value.  If  the  di fference  between  the  aimpoints  of  two 
missions  was  less  than  this  input  value,  the  most  recent  mission  was 
cancelled.  The  value  used  in  production  runs  was  50  meters. 

9)  A priority  system  was  devised  for  the  targets  (groups  of 
vehicles).  The  priority  scheme  gave  a weight  to  the  target  equal  to 
the  number  of  vehicles  in  the  group  divided  by  the  distance  that  these 
vehicles  were  from  the  F0.  This  elementary  weighting  scheme  was 
selected  because  the  author  felt  a small  group  of  targets  would  seem 
more  dangerous  to  the  F0  than  a larger  group  farther  away.  Since  the 
terms  "small1',  "larger",  "close",  and  "farther"  are  subjective,  the 
appropriate  criteria  would  be  based  on  military  judgement  concerning 
the  particular  situation.  This  grouping  of  vehicles  is  called  a 
cluster.  Figure  1 shows  a cluster's  priority  based  on  range  and 
number  of  vehicles  in  the  cluster.  The  F0  selected  the  group  of 
vehicles  with  the  highest  priority  to  use  as  his  target.  The  F0  was 
not  allowed  to  fire  at  a group  containing  fewer  than  three  vehicles. 

The  number  three  was  chosen  for  use  in  production  runs  because  it  was 
felt  that  this  was  the  minimum  number  of  vehicles  that  could  'profit- 
ably' be  engaged. 
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10)  TACFIRE  equipment  was  used  within  all  organizations.  The  digital 
message  device  (DMD),  a burst  transmission  device,  was  used  between  the 


F0  and  the  FDC.  In  the  model  the  FO  sent  his  message  to  the  first  DS 
firing  unit  FDC,  the  second  OS  firing  unit  FOC , and  the  reinforcing 
battery  FDC,  in  that  order.  The  battery  computer  system  (BCS)  replaced 
the  FADAC  in  the  FDC. 

B.  PROCEDURE  FOR  EACH  FORWARD  OBSERVER 

The  STAR  model  provided  a detection  model  which  simulated  the  pro- 
cedure by  and  time  at  which  the  observer  in  a tank  or  other  vehicle 
acquired  enemy  vehicles.  In  the  FA  model,  the  FO  acquired  targets  by 
searching  in  the  same  manner  3s  the  tank  commander,  i.e.  the  FO  used 
routines  from  STAR  to  develop'  a list  of  targets.  The  computer  simula- 
tion checked  each  vehicle  against  every  other  vehicle  at  given  intervals 
and  evaluated  the  probability  of  detection  (event  'STEP. TIME' ) . In  the 
Simscript  programming  language,  an  event  is  the  computer  procedure  for 
accompl i shing  a number  of  tasks  at  a given  time.  The  computer  places 
these  tasks  in  chronological  order  by  'scheduling'  them  appropriately. 
The  time  of  detection  was  computed  as  a function  of  line  of  sight,  range 
to  target,  and  observer's  search  pattern.  Detection  occurred  at  the 
appropriate  time  (event  'DETECT')  and  the  target  that  was  detected  was 
added  to  the  FO's  target  list  (routing  ’ LIST. UPDATE ’) . The  FO  evaluated 
all  detected  targets  as  candidates  for  a fire  mission  (event  'CLUSTER. 
UPDATE’).  If  the  FO  was  not  already  processing  the  maximum  number  of 
missions  allowed,  he  aggregated  his  targets  from  the  target  list  into 
clusters.  If  he  had  a cluster  'important'  enough,  he  requested  a fire 
mission.  The  FO  prepared  a call  for  fire  and  attempted  to  call  a fire 
mission  on  the  battery  fire  net  (a  radio  frequency  dedicated  to  fires 
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for  the  given  DS  battery)  with  the  battalion  FDC  (.Bn  FDC)  monitoring, 
(event  1 COMMO. ATTEMPT' ) . If  the  DS  battery  radio  frequency  was  busy, 
another  communications  attempt  was  made  five  seconds  later,  (event 
' COMMO. ATTEMPT' ) . Once  the  communication  was  received,  the  Bn  FDC 
TACFIRE  would  allocate  missions  to  the  firing  units  in  the  following 
order:  first  firing  unit  and  then  the  second  firing  unit.  If  both  DS 
firing  units  were  busy,  the  call  for  fire  was  referred  to  the  reinforc- 
ing FDC.  If  all  firing  units  were  busy,  a firing  unit  was  selected 
based  on  the  status  of  the  FDC,  the  firing  unit,  and  the  number  of 
missions  waiting  to  be  fired.  Once  a firing  unit  was  selected,  its  FDC 
would  start  to  process  the  mission  (event  'FDC. PROCESSING') . 

The  FDC  that  received  the  mission  ensured  that  the  firing  unit  was 
available  to  fire  the  mission,  (event  1 CHECKING .GUNS .AVAILABILITY ’) . 

If  the  firing  unit  was  busy,  then  the  fire  mission  was  held  in  a queue 
until  the  firing  unit  was  available.  If  the  firing  unit  was  idle,  it 
was  scheduled  to  fire  (event  1 FIRING. OF .GUNS ’) . When  the  adjusting  gun 
was  ready  to  fire,  it  fired  a round  that  landed  at  the  present  time 
plus  the  time  of  flight  of  the  projectile,  (event  'ARTY. IMPACT' ) . The 
FO  was  alerted  5 seconds  before  the  round's  impact  (event  'SPLASH'). 

The  FO  determined  a new  estimated  location  of  the  cluster  of  targets 
after  impact  of  the  adjusting  round.  When  the  adjusting  round  impacted 
within  a given  distance  of  the  target,  the  mission  entered  the  FFE 
phase.  During  the  FFE  phase,  the  firing  unit  fired  at  its  maximum 
rate  of  fire  towards  the  cluster's  estimated  location  at  the  predicted 
time  of  the  impact  of  the  rounds.  The  FO  was,  in  effect,  'walking' 
the  artillery  along  the  movement  vector  of  the  enemy  cluster.  The  FO 
ended  the  mission  after  all  volleys  had  been  expended,  (event  'END. OF. 
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MISSION' )•  The  FO  then  proceeded  to  detect  new  vehicles  and  recluster 
the  previously  detected  vehicles. 

C.  CLUSTERING  PROCEDURE 

The  clustering  algorithm  modeled  the  actions  of  the  forward  obser- 
ver as  he  attacked  a number  of  moving  armored  vehicles.  These  actions 
consisted  of  grouping  or  'clustering'  vehicles,  placing  priorities  on 
these  clusters,  and  then  estimating  the  future  location  of  the  cluster 
with  the  highest  priority. 

The  FO  was  allowed  to  detect  targets  that  were  in  view.  These 
detected  targets  were  stored  in  his  target  list  until  needed.  Periodi- 
cally (a  user  input  value  - nominally  30  seconds),  the  FO  clustered 
his  targets.  This  procedure  defined  geographical  regions  (’boxes'), 
each  containing  a number  of  detected  vehicles.  The  model  used  as  a 
'box'  the  rectangular  approximation  of  the  effects  of  one  volley  fired 
from  a four  gun  firing  unit,  (.user  input  - nominally  the  largest  area 
of  effects  of  the  weapons  being  modeled). 

A box  was  positioned  with  its  center  at  the  coordinates  of  the 
first  target  in  the  detected  list  and  became  a cluster  with  population 
of  one.  The  characteri sti cs  of  a cluster  were:  1)  X location;  1)  Y 
location;  3)  speed,  and  4)  direction.  The  initial  characteristics  of 
the  cluster  were  those  of  the  first  vehicle.  The  next  vehicle  detected 
was  then  examined.  If  the  vehicle  lay  within  the  boundaries  of  the  first 
cluster's  box,  the  center  of  the  'box'  was  moved  to  the  average  of  the 
two  vehicles'  positions,  the  population  increased  to  two  vehicles,  and 
the  cluster  velocity  became  the  average  of  the  two  vehicles'  velocity 
vectors.  If  the  vehicle  lay  outside  the  first  cluster,  it  became  the 
center  of  a new,  second  cluster.  To  preclude  the  box  shifting  so  much 
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that  a previously  selected  vehicle  would  fall  outside,  the  box  was  not 
allowed  to  move  more  than  150  meters  in  any  direction  from  its  original 
position.  Each  vehicle  in  the  FO's  area  of  responsibility  was  placed 
in  an  existing  cluster  or  at  the  center  of  a new  cluster.  As  more 
vehicles  were  added  to  a cluster,  the  cluster's  original  location  and 
velocity  were  updated  appropriately  in  the  manner  above.  After  all 
vehicles  were  clustered,  each  cluster  was  given  a priority. 

The  priority  of  a cluster  was  an  indication  of  its  importance  as 
determined  by  the  number  of  vehicles  in  the  cluster  and  its  closeness 
to  friendly  positions.  If  the  population  of  a cluster  was  below  a 
given  threshold  value  (initially  the  value  was  three),  the  priority 
was  zero.  As  a result,  the  F0  would  never  fire  on  a cluster  of  fewer 
than  three  vehicles.  If  the  cluster  population  was  greater  than  or 
equal  to  the  threshold  value,  the  priority  was  determined  by  dividing 
the  number  of  vehicles  in  the  cluster  by  the  range  (in  thousands  of 
meters)  to  the  cluster.  After  each  cluster  was  given  a priority,  the 
F0  selected  the  cluster  with  the  highest  priority  as  his  target. 

Since  the  cluster  was  moving,  the  future  location  of  the  cluster 
at  the  time  of  round  impact  was  required  for  use  as  an  aiming  point 
for  the  FDC.  The  time  from  vehicle  identification  (clustering)  to  the 
impact  of  the  first  adjusting  round  was  estimated  as  the  mean  of  the 
probability  distribution  that  characterized  the  time  required  to  get 
the  round  to  the  target.  Since  the  F0  was  nominally  equipped  with  a 
laser  rangefinding  device,  the  F0  lased  the  cluster  centroid,  with  the 
assumption  made  that  there  would  be  a single  tank  at  that  point.  He 
lased  twice  at  that  center  tank  and  20  seconds  later,  lased  twice  again 
at  the  same  tank  in  a new  location.  The  average  of  the  first  two 
velocities  and  the  average  of  the  second  two  velocities  were  used  to 
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calculate  the  estimated  speed  and  direction  of  the  cluster.  The  future 
location  of  the  vehicle  at  the  time  of  the  round's  impact  was  * timated 
by  extrapolating  at  the  estimated  speed  in  the  estimated  direction  for 
the  estimated  time  interval.  (These  calculations  will  be  done  by  the 
SCS  in  the  firing  unit  FDC  in  conjunction  with  the  FO's  lase  informa- 
tion.) 

D.  DAMAGE  ASSESSMENT 

In  the  author’s  opinion,  the  proper  objective  of  damage  assessment 
is  the  determination  of  the  effect  of  artillery  rounds  placed  on  or 
near  the  target.  These  effects  are  detailed  as  criteria  to  'defeat' 
the  specific  target  under  consideration . An  example  from  DARCCM  publi- 
cation 706-101  for  tanks  is  given  below  [Ref.  4].  This  type  of  defeat 
criteria  was  used  in  the  model. 

Vulnerability  Criteria 

K-KILL  - A tank  was  a k-kill  (also  known  as  a catastrophic 
kill)  if  it  was  damaged  to  the  extent  that  it  had  no  further 
effect  on  the  battle. 

F-KILL  - A tank  was  a firepower  kill  if  it  was  damaged  to 
the  extent  that  it  could  not  fire. 

M-KILL  - A tank  was  a mobility  kill  if  it  was  damaged  to  the 
extent  that  it  could  not  move. 

The  author  made  the  following  definitions,  ’hey  complement  the  defini- 
tions above  but  are  not  supported  by  available  data  bases. 

NEUTRALIZATION  - A tank  could  not  function  for  some  period 
of  time,  but  returned  to  the  battle  later  with  all  capabilities. 
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SUPPRESSION  - A tank  had  a degradation  of  some  capabilities 
for  some  period  of  time. 

The  level  of  damage  was  used  to  determine  what  capabilities  to  change 
in  the  vehicles  that  were  damaged. 

Data,  based  on  experiments,  are  available  to  provide  a basis  for 
damage  assessment  for  the  first  set  of  defeat  criteria.  There  are  no 
generally  agreed  upon  definitions  for  the  second  set  of  criteria. 
Therefore,  the  model  considered  only  the  criteria  of  k-kill,  m-kill 
and  f-ki 1 1 . 

For  a given  projectile's  impact,  there  is  a characteristic  pattern 
of  fragmentation.  The  distribution  of  HE  fragments  is  spread  outward 
from  the  sides  of  the  projectile,  while  the  effects  of  DPICM  are  cir- 
cular. Tn  the  model,  the  probability  of  damaging  a target  was  depen- 
dent upon  the  target's  location  relative  to  the  round's  imapct  point. 
Damage  assessment  was  modeled  using  the  concept  of  a 'lethal  area': 
the  summation  of  the  area  around  a projectile's  impact  point  weighted 
by  the  probability  of  being  damaged  while  in  a given  area.  Lethal  Area 
(LA)  is  expressed  in  the  following  formula: 


-Ho  H» 
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Pd  (x,y)  dxdy 


where  P^  (x,y)  was  the  conditional  probability  that  a target  element 
located  at  the  point  (x,y)  on  the  ground  would  receive  damage  at  a 
certain  level,  d [Ref.  4],  This  model  used  the  concept  of  'lethal  area' 
with  a number  of  assumptions  governing  its  use.  A step  function  was 
used  to  approximate  the  damage  to  hard  targets  with  the  damage  effects 
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pattern  assumed  to  have  a circular  shape.  If  the  vehicle  lay  within 
a circle  centered  at  the  round  impact  point  (radius  specified  for  a 
given  damage  level),  the  probability  of  receiving  that  given  damage 
was  one,  while  if  the  vehicle  lay  outside  the  circle,  the  probability 
of  receiving  that  given  damage  was  zero. 

The  Blue  damage  assessment  routine  modeled  damage  as  a function  of 
the  distance  between  a round's  impact  point  and  the  target's  location. 
During  the  FFE  phase,  the  damage  assessment  routine  calculated  the 
damage  inflicted  by  artillery  rounds  that  had  been  fired  against 
vehicles  in  the  vicinity  of  the  given  aiming  point.  The  mean  point  of 
impact  (MPT)  of  all  rounds  in  the  volley  was  displaced  from  the  aiming 
point  in  accordance  to  a bivariate  normal  distribution  based  on 
accuracy  probable  errors.  Each  round's  actual  impact  point  was  moved 
from  its  planned  aiming  point  in  accordance  with  range  and  deflection 
errors  (based  on  precision  probable  error).  These  dispersion  errors 
were  assessed  in  the  gun  target  coordinate  system  and  translated  into 
the  battlefield  coordinate  system.  The  relationships  between  the  two 
coordinate  systems  is  shown  in  Figure  2.  The  four  impact  points  con- 
stituted the  volley's  effect  pattern.  Figure  3 shows  the  effects  of 
one  volley  fired  at  a cluster.  Each  vehicle  that  was  'alive'  was 
checked  to  see  if  it  was  in  the  volley's  effects  pattern.  This  check 
compared  the  vehicle's  location  to  a rectangular  approximation  of  the 
volley's  effects  and  thereby  reduced  the  number  of  vehicles  that  had  to 
be  checked  later  with  ^cre  elaborate  calculations.  If  a vehicle  was 
within  this  screening  rectangle,  its  distance  from  each  round's  impact 
point  was  then  calculated.  If  the  vehicle  was  within  a given  radius 
(a  user  input  - nominally  50  meters)  of  a round's  impact  point,  the 
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Battlefield  Coordinate  System  (\,y) 

Gun  Target  Coordinate  System  (x',y') 

Cluster  Centroid  (Target) 

Center  of  Firing  Unit  (Gunl 

Theta-Angle  through  which  the 
coordinate  system  is  rotated 


Figure  2.  Gun  target  coordinate  system. 
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Figure  3.  Volley's  effects  pattern, 
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distance  from  the  vehicle  to  the  round's  impact  point  was  then  compared 
to  the  appropriate  'lethal  radius'.  This  lethal  radius  was  computed 
using  the  appropriate  lethal  areas  and  the  assumption  that  the  lethal 
pattern  was  circular.  The  k-kill  lethal  radius  was  checked  first.  If 
the  round  did  not  fall  within  this  radius,  then  the  m-kill  radius  and 
f-kill  radius  were  both  checked.  Attributes  of  the  target  were  altered 
to  reflect  any  resultant  change  in  capabilities.  This  procedure  was 
repeated  for  each  round. 
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IV.  RED  REPRESENTATION 


A.  GENERAL 

The  Red  units  were  more  difficult  to  model  than  the  Blue  units  due 
to  a lack  of  relevant  information.  The  Red  artillery  was  modeled  at 
a lower  level  of  resolution.  Forward  observers  were  not  simulated  and 
no  communication  or  subprocesses  were  modeled  (fire  direction  center, 
firing  battery,  or  command  and  control). 

The  Red  artillery  'attributed  slice'  in  support  of  the  Red  regiment 
consisted  of  ten  152mm  self-propelled  howitzer  batteries  and  one  BM21 
multiple  rocket  launcher  (MRL)  battery.  By  assumption,  there  were 
always  three  of  the  ten  batteries  of  152mm  artillery  moving  and  seven 
firing.  Lead  elements  of  the  Red  regiment  were  assumed  to  have  reported 
the  general  locations  of  the  Blue  battle  positions  to  the  Red  regimental 
headquarters , where  the  Blue  positions  were  forwarded  to  the  Red 
artillery  headquarters.  These  Blue  battle  positions  were  deemed  the 
regimental  objectives  and  were  attacked  with  continuous  supporting  fire 
until  the  Red  maneuver  units  attacked  the  front  of  the  Blue  battle 
positions.  The  planned  fires  were  scheduled  to  be  stopped  in  100 
seconds  when  the  Red  force  closed  within  1500  meters  of  any  Blue  vehicle. 

The  only  Red  artillery  that  was  played  as  'on  call'  during  the 
course  of  the  battle  was  the  MRL  battery.  The  Red  maneuver  commander 
could  request  support  from  the  MRL  battery  to  attack  Slue  targets  that 
were  hindering  the  main  attack.  Due  to  their  reload  time,  the  MRL  were 
used  only  once  during  the  attack.  The  first  Red  tank  that  was  k-killed 
by  an  anti-tank  missile  fired  from  the  Blue  infantry  heavy  company  team 
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position  (.team  B)  signaled  the  Red  commander  to  request  an  MRL  volley 
on  that  Blue  location. 

B.  PLANNED  FrRES 

The  Red  artillery  fired  predominantly  preplanned  fires.  The  fire 
plan  was  generated  external  to  the  model  , based  on  the  sheaf  of  the 
weapon  system  and  the  general  Blue  positions.  Figure  4 shows  a fire 
plan  for  a Blue  company  team  located  in  defensive  positions  over  a 900 
meter  x 1200  meter  area.  The  Red  battery's  aim  point  was  the  center 
of  a 300  meter  x 100  meter  rectangle,  which  was  used  to  approximate 
the  effects  of  a volley  from  a 152mm  battery.  After  one  volley  into 
that  rectangle,  the  battery  shifted  its  fires  to  the  next  rectangle, 
following  the  pattern  indicated  on  the  figure.  If  the  plan  was  com- 
pleted, the  battery  began  firing  the  entire  plan  a second  time.  A 
large  target  area  was  divided  among  the  batteries  available.  Since 
their  strategy  depended  on  volume  of  fire  to  defeat  the  Blue  forces, 
the  Red  batteries  fired  at  their  maximum  rate  of  fire  for  the  duration 
of  the  battle. 

C.  DAMAGE  ASSESSMENT 

Damage  assessment  for  the  Red  artillery  was  at  the  volley  level. 
Throughout  the  simulation  of  Red  artillery,  it  was  assumed  that  there 
was  no  overlap  of  the  effects  of  individual  rounds  and  that  those 
vehicles  within  the  impact  area  were  uniformly  distributed  over  the 
rectangular  area.  All  Blue  vehicles  were  checked  to  determine  which 
ones  lay  within  the  target  rectangle. 

The  probability  of  damage  was  calculated  using  the  following 
formula  [the  lethal  area  for  the  appropriate  target/weapon  fired/ 
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ammunition  was  used). 


Probability  of  Damage  * 

lethal  area  x number  of  rounds  fired 
area  of  effects 

The  above  formula  assumes  that  the  area  of  effects  is  always  much 
larger  than  the  lethal  area  times  the  number  of  rounds  fired.  This 
was  always  true  for  all  runs  performed. 

Results  were  assessed  for  three  levels  of  damage:  k-kill,  m-kill, 
and  f-kill.  Each  target  within  the  target  rectangle  was  evaluated  for 
damage  by  sending  probabilities  of  damage  to  the  ATRIT  routine  which 
assessed  the  appropriate  level  of  damage  to  the  vehicle.  One  random 
number  was  generated  from  a uniform  distribution  (0,1),  and  was  com- 
pared to  the  value  of  the  probability  of  k-kill  that  was  calculated  in 
routine  RED .ARTY . FIRES  or  event  YRL. VOLLEY.  If  the  random  number  was 
less  than  or  equal  to  the  probability  of  a k-kill.  a k-kill  was 
assessed.  If  the  vehicle  was  not  k-ki 1 led , the  incremental  m and  f 
damages  to  this  vehicle  were  accumulated  with  mobility  and  firepower 
damage  to  this  vehicle  from  other  firings.  The  random  number  was  then 
compared  to  the  updated  m-kill  and  f-kill  thresholds.  If  the  random 
number  was  lower  in  either  case,  that  type  kill  was  assessed  against 
the  target  and  the  target's  attributes  were  updated  to  reflect  the 
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DETAILED  EXPLANATION  OF  THE  FA  MODEL 
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This  chapter  presents  a detailed  explanation  of  the  structure  of 
the  FA  model  and  its  interface  with  the  STAR  model.  Each  routine  and 
event  used  in  the  FA  model  is  explained  in  detail,  accompanied  by  a 
listing  of  the  code  and  a definition  of  the  variables. 

A.  INTERFACE  WITH  THE  STAR  MODEL 

The  STAR  model  and  the  FA  model  were  both  written  in  the  Simscript 
language.  Simscript  was  designed  for  use  in  discrete  event  simulations 
and  uses  the  following  concepts:  entities,  attributes,  sets,  variables, 
routi nes  , and  events  . 

An  entity  is  one  member  of  a class  of  objects,  each  described  by  a 
number  of  characteristics  called  attributes.  Individual  members  of 
tne  class  have  specific  values  assigned  to  these  attributes.  There 
are  two  types  of  entities,  permanent  and  temporary.  A permanent  entity 
is  created  at  the  beginning  of  the  program  and  exists  until  the  program 
ends,  while  a temporary  entity  is  created  as  required  and  may  be  de- 
stroyed when  no  longer  needed.  When  a temporary  entity  is  created, 
a block  of  core  storage  is  assigned  to  it.  The  beginning  address  of 
this  core  is  called  the  pointer  variable  of  the  entity.  Permanent 
entities  are  assigned  an  array  location  at  the  beginning  of  the  program. 
As  an  example  of  entities  and  attributes,  the  entity,  MISSION,  is  an 
individual  fire  mission  and  the  attribute.  MSN. NAME,  is  the  sequential 
number  of  that  mission. 

Sets  are  groups  of  individual  entities,  ordered  in  accordance  with 

In  the  FA  nodel  , all  MISSIONS  in  progress 


programmer  sreci fi cat  ions. 


were  placed  in  the  set,  HOLDING .MSNS . When  the  MISSION  was  completed, 
it  was  removed  from  the  set  HOLDING. MSNS  and  placed  in  the  set  MSN. 
QUEUE. 


Events  are  occurrences  scheduled  to  occur  at  a certain  time  or 
after  some  interval.  For  details  of  the  Simscript  language  see  refer- 
ence [6]  . 

The  following  is  a list  of  the  sets,  entities,  arrays,  variables, 
and  routines  from  the  STAR  model  which  are  called  by  the  FA  model. 

(The  routines  and  events  that  required  modification  are  discussed  at 
the  end  of  the  chapter.)  These  must  be  understood  in  order  to  compre- 
hend the  code  and  logic  of  the  FA  model  [Ref.  1] . 

System  Owned  Sets 

TANKS  - The  set  to  which  all  direct  fire  systems  belong. 

BLUE. ALIVE  - The  set  to  which  all  Blue  TANKS  initially  belong. 

Blue  TANKS  are  removed  when  they  are  killed. 

RED. ALIVE  - The  set  to  which  all  Red  TANKS  initially  belong. 

Red  TANKS  are  removed  when  they  are  killed. 

Temporary  Entities  and  Their  Attributes 

TANK  - A temporary  entity  representing  a direct  fire  weapon  system. 
Attributes  of  the  Tank: 

NAME  - An  integer  variable  given  to  a particular  TANK  for 
identi fication . 

COLOR  - An  integer  variable  with  the  value  of  0 if  the  color 
is  Red  and  a value  of  1 if  the  color  is  31ue. 

WPN.TYPE  - An  integer  variable  representing  a particular  type 
of  weapon  system. 
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Integer  value  Weapon  system  name 
1 
2 

3 

4 

5 

6 
I 

3 

9 

ALIVE. DEAD  - An  integer  value  with  value  of  0 if  the  TANK  is 
alive  and  a value  of  1 if  the  TANK  is  dead. 

HIT. STATE  - An  alpha  variable,  blanks  if  the  vehicle  has  not 
been  damaged,  otherwise  an  abbreviation  of  the  TANK'S  status 
(e.g.  , DEAD, MFDM, FOAM,  etc.) . 

POINTER  - An  integer  variable  which  equals  the  pointer  value 
assigned  to  the  TANK  at  the  time  it  was  created. 

X.  CURRENT  - A real  variable  representing  the  TANK'S  current  X 
coordinate  (.in  meters). 

Y.  CURRENT  - A real  variable  representing  the  TANK'S  current  Y 
coordinate  (in  meters). 

Z.  CURRENT  - A real  variable  representing  the  TANK'S  current  Z 
coordinate  (elevation  in  meters). 

SPD  - A real  variable  representing  the  TANK'S  current  soeed  in 
meters  per  second. 

T.SPD  - A real  variable  representing  the  simulated  battle  time 
at  which  the  TANK'S  speed  was  last  calculated. 


XM1  - 105mm  main  gun 

XM1  - 120mm  main  gun 

IFV 

IFV 

DIVAD 

DRAGON 

T72 

BMP 

ZSU 
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DIR.OF.MVMT  - A real  variable  representing  the  direction  of  move 
ment  of  the  TANK  in  radians,  measured  with  a positive  value  in 
the  counter'd ockwi se  direction  from  East  and  negative  in  the 
clockwise  direction  from  East. 

DEFNUM  - An  integer  variable  representing  the  current  defilade 
conditions  of  the  TANK. 

Integer  value  Condition 

1 full  defilade 

C turret  defilade 

3 firing  defilade 

4 seeking  concealment  wnile 
stopping  to  fire 

5 unconcealed 

OP.RNG  - An  integer  variable  representing  the  maximum  ranee  at 
which  the  TANK  will  attempt  to  engage  another  ~ANK.  If  a 
vehicle  is  an  FO  vehicle,  the  maximum  range  of  the  r0's  observa- 
tion device  is  stored  in  the  variable. 

SEC,?LT,3N,RGT.30E.DIV  - Integer  variaoles  representing  the  ’den 
tification  number  of  the  section,  platoon,  company,  battalion, 
regiment,  brigade,  ana  division  to  which  the  TANK  is  assigned. 
MKILL  - An  integer  variable  assigned  the  value  of  1 if  the  '4NK 
nad  been  mobility  killed,  otherwise  equal  to  zero. 

FKILL  - An  integer  variable  assigned  the  value  of  1 if  the  TANK 
had  been  fi  repower  killed,  otherwise  equal  to  zero. 

VFKILL  - An  integer  variable  assigned  the  value  of  1 if  the  TANK 
had  been  both  mobility  and  firepower  killed,  otherwise  equal  to 
zero . 

xKllw  - An  integer  variable  assigned  the  value  of  1 if  the  TANK 
nad  been  catastrophical ly  killed,  otherwise  equal  to  zero. 


COCDR , PLTLDR . SECLDR  - Integer  variables  representing  the  names 
of  the  TANK'S  company  commander,  platoon  leader,  and  section 
leader  respectively.  Although  input  as  the  integer  name  of 
the  appropriate  leader,  the  attributes  are  changed  by  the  program 
to  reflect  the  leader's  pointer  variable. 

Integer  Arrays 

BBBPOINT  - An  array  containing  the  pointer  variables  of  all  Blue 
TANKS  [direct  fire  systems). 

RRRPOINT  - An  array  containing  the  pointer  variables  of  all  Red 
TANKS. 

LIST  - An  array  containing  the  pointer  variables  of  the  enemy 
vehicles  currently  detected  by  a direct  fire  weapon  system. 

Integer  Variables 

R.NUM. ALIVE  - The  starting  number  of  Red  weapon  systems. 

3.NUM.ALIVE  - The  starting  number  of  Blue  weapon  systems. 

3LJE  - A variable  representing  the  color  of  friendly  elements. 

RED  - A variable  representing  the  color  of  opposing  forces. 

Routine  ATRIT 
Arguments : 

SH.T  - The  pointer  variable  of  the  weapon  which  fired.  If  the 
source  of  the  potential  damage  is  artillery  or  mines,  SH.T  is 
the  pointer  variable  of  the  vehicle  fired  upon. 

TGT.T  - The  pointer  of  the  vehicle  which  was  fired  upon. 

EMKILL  - The  probability  of  an  m-kill. 

EFKILL  - The  probability  of  an  f-kill. 

KAYKILL  - The  probabi 1 i ty  o f a k-ki 1 1 . 
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WHOCALLED  - An  integer  variable  with  a value  of  0 if  a direct 
fire  weapon  system  caused  the  possible  damage  and  1 if  a mine 
or  artillery  caused  the  possible  damage. 


Purpose:  To  determine  the  level  of  damage  that  a vehicle  or  weapon 
system  sustains  when  hit.  One  random  number  is  drawn  from  a distribu- 
tion uniform  on  the  interval  0 to  1.  This  random  number  is  compared 
with  the  probability  of  a k-kill.  If  the  probability  of  the  k-kill  is 
greater  than  the  value  of  the  random  number,  a k-kill  is  assessed.  If 
a k-kill  is  not  assessed,  the  incremental  m and  f damages  to  this  vehicle 
are  accumulated  with  mobility  and  firepower  damage  to  this  vehicle  from 
other  firings.  The  random  number  is  then  compared  to  the  current  level 
of  m- kill  and  f-kill  damage.  If  the  probability  of  an  m-kil-1  is  greater 
than  the  random  number,  an  m-kill  is  assessed.  The  same  procedure  is 
used  for  the  f-kill.  If  both  a mobility  and  a firepower  kill  are 
assessed,  an  mf-kill  is  assessed  and  the  vehicle  is  no  longer  an  active 
participant  in  the  battle.  Upon  completion  of  the  assessment,  a global 
variable,  DAMAGE. NUM,  is  assigned  one  of  the  following  integer  values: 

Integer  value  Type  of  damage  to  target 

1 no  damage 

2 mobility  damage 

3 firepower  damage 

4 mobility  and  firepower  damage 

5 k-kill 


Routine  DIST 
Arguments : 

XI  - The  current  X coordinate  of  first  vehicle. 
Y1  - The  current  Y coordinate  of  first  vehicle. 
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X2  - The  current  X coordinate  of  second  vehicle. 

Y2  - The  current  Y coordinate  of  second  vehicle. 

Returns:  The  horizontal  distance  between  two  vehicles. 

Purpose:  To  find  the  distance  between  two  vehicles  by  using 

their  current  battlefield  coordinates. 

Routine  LOC 
Argument : 

Tank  - The  pointer  variable  of  the  TANK  whose  location  is  to  be 
updated . 

Purpose:  To  update  the  X and  Y coordinates  of  the  TANK  based 

on  its  current  speed,  direction,  and  the  elapsed  time  since  its 
last  position  update.  Once  the  X and  Y coordinates  are  deter- 
mined, a FORTRAN  routine  (ELEV)  is  called  which  calculates  the 
elevation  of  the  TANK  on  the  parametric  terrain  model. 

Routine  TALLY. HIT.STATE 
Arguments : 

TANK  - The  pointer  value  of  the  TANK  that  was  fired  at. 

DAMAGE. NUM  - The  damage  number  from  routine  ATRIT  or  other 
routines  which  indicates  the  type  damage  sustained  by  the  TANK. 
Purpose:  Used  to  accumulate  the  number  of  times  the  TANK  was 

assessed  damage  in  each  damage  category.  When  the  TANK  is 
assessed  as  sustaining  a k-kill  damage,  the  routine  removes 
the  TANK  from  the  BLUE. ALIVE  (or  RED. ALIVE,  as  appropriate) , 
PLT.UNIT,  and  COMP. UNIT  sets. 
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B.  FA  ROUTINES  AND  EVENTS 


1 . PREAMBLE 

The  PREAMBLE  is  the  first  part  of  any  Simscript  program.  It  is 
used  to  define  global  variables  and  arrays;  declare  entities,  attributes, 
and  sets;  and  define  events  and  routines.  Every  variable  defined  in  the 
PREAMBLE  is  defined  and  available  throughout  the  program.  Variables 
defined  only  in  routines  and  events  are  local  to  that  particular  routine 
or  event.  The  following  items  were  added  to  the  STAR  PREAMBLE.  A list- 
ing of  the  additional  PREAMBLE  coding  is  provided  along  with  a brief 
explanation. 

System  Owned  Sets 

HOLDING. MSNS  - The  set  to  which  all  current  fire  missions  belong. 

MSN. QUEUE  - The  set  to  which  all  completed  fire  missions  belong. 

Permanent  Entities,  Attributes,  and  Sets 

FO  - A permanent  entity  representing  the  forward  observer. 

Attributes  of  Each  FO: 

POINTING. TO  - An  integer  variable  which  is  equal  to  the  pointer 
value  assigned  to  the  FO's  TANK. 

MY. RADIO  - An  integer  variable  representing  the  radio  frequency 
on  which  the  FO  is  operating.  A value  of  1 indicates  the  direct 
support  battery  radio  frequency. 

STATUS  - An  integer  variable  representing  the  status  of  the  FO 
with  a value  of  0 for  idle  and  1 for  busy. 

WAIT. TIME  - A real  variable  equal  to  the  simulated  battle  time 
when  the  FO  last  attempted  to  communicate  on  his  radio  fre- 
quency. 
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AMT .ACTIVE .MSNS  - An  integer  variable  equal  to  the  number  of 
missions  in  which  a FO  is  currently  engaged. 

TYPE  - An  integer  variable  representing  the  observation  device 
that  the  FO  is  using,  with  a value  of  I for  a laser  device  and 
2 for  binoculars.  (The  observer  detects  with  the  unaided  eye 
and  then  uses  the  observation  device  to  assist  in  target 
location. ) 

STATE4  - An  integer  variable  used  to  reference  the  current 
mission  in  the  array  called  C. NUMBER. ARRAY. 

LAST. CLUSTERED  - A real  variable  representing  the  simulated 
battle  time  at  which  the  FO  last  grouped  the  vehicles  that  he 
had  detected. 

AMT. MSNS . FIRED  - An  integer  variable  representing  the  total 
number  of  missions  completed  by  the  FO. 

BATTERY  - A permanent  entity  representing  an  artillery  firing  unit.  It 
owns  a set,  HOWITZER. QUEUE,  which  holds  all  fire  missions  that  are 
waiting  to  be  fired  by  that  firing  unit. 

Attributes  of  Each  BATTERY: 

COLORI  - An  integer  variable  whose  value  is  1 if  the  color  is 
Blue  and  0 if  the  color  is  Red. 

CALIBER  - An  integer  variable  representing  the  type  weapon 
assigned  to  the  BATTERY.  This  attribute  is  assigned  the  follow- 
ing values:  1 - 155inm,  2 - 203mm,  3 - GSRS,  4 - 152mm,  5 - 122mm 
MRL . 

NUM.GUNS  - An  integer  variable  representing  the  number  of 
weapons  in  the  BATTERY. 
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X. CUR1  - A real  variable  representing  the  BATTERY'S  current  X 
coordinate  in  the  battlefield  coordinate  system. 

Y. CURl  - A real  variable  representing  the  BATTERY'S  current  Y 
coordinate  on  the  battlefield  coordinate  system. 

MAX. RANGE  - An  integer  variable  representing  the  maximum  firing 
range  of  the  BATTERY,  in  meters. 

NUM. DPICM. LEFT  - An  integer  variable  representing  the  number  of 
DPICM  rounds  currently  In  the  BATTERY. 

NUM. HE. LEFT  - An  integer  variable  representing  the  number  of  HE 
rounds  currently  in  the  BATTERY. 

NO. MSNS. FIRED  - An  integer  variable  representing  the  number  of 
missions  that  have  been  fired  by  the  BATTERY. 

I 

STATE1  - An  integer  variable  representing  the  activity  state  of  . 

the  BATTERY,  with  the  following  values:  0 - idle,  1 - busy. 

ST. FIRING  - A real  variable  representing  the  time  that  the 
BATTERY  received  the  mission,  either  from  the  FDC  or  from  the 
HOWITZER. QUEUE. 

QUEUE. SIZE  - An  integer  variable  representing  the  current  number 
of  MISSIONS  waiting  to  be  fired  by  the  BATTERY. 

RATE. OF. FIRE  - A real  variable  representing  the  maximum  rate  of 

I 

fire  of  the  BATTERY,  in  rounds  per  minute. 

WHICH. VOLLEY  - An  integer  variable  representing  the  current 
volley  being  fired  in  the  FFE  phase  of  the  MISSION. 

| KOUNT  - An  integer  variable  used  only  by  Red  batteries  to  deter- 

mine whether  to  fire  DPICM  or  HE  ammunition.  Values  1-4  indicate 
HE  ammunition,  while  a value  of  5 indicates  DPICM  ammunition 
(indicating  an  BOT.  HE  basic  load,  ZOT.  DPICM). 
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FDC  - A permanent  entity  representing  a fire  direction  center. 


Attributes  of  FDC: 

STATE2  - An  integer  variable  representing  the  status  of  the  FDC 
with  the  value  of  0 for  idle  and  the  value  of  1 for  busy. 

C0L0R2  - An  integer  variable  indicating  to  which  force  the  FDC 
belongs  with  a value  of  0 for  Blue  and  1 for  Red. 

MUM. MISSIONS  - An  integer  variable  representing  the  number  of 
fire  missions  that  have  been  processed  by  the  FDC. 

X. CUR2  - A real  variable  representing  the  X coordinate  of  the 
FDC. 

Y. CUR2  - A real  variable  representing  the  Y coordinate  of  the 
FDC. 

START. PROCESS  - A real  variable  representing  the  battle  time 
that  the  FDC  started  to  process  the  current  mission. 

RADIO  - A permanent  entity  representing  a radio  frequency. 

Attribute  of  RADIO: 

STATE3  - An  integer  variable  representing  the  status  of  the  radio 
frequency.  The  value  of  0 indicates  idle  and  1 indicates  busy. 

Temporary  Entities,  Attributes,  and  Sets 

MISSION  - A temporary  entity  representing  a fire  mission  which  is  created 
when  the  FO  has  selected  a cluster  (a  group  of  vehicles)  to  engage. 
Attributes  of  the  MISSION: 

MSN. NAME  - An  integer  variable  used  for  i denti fi cation . 

NUM.ADJ. ROUNDS  - An  integer  variable  representing  the  number  of 
rounds  required  in  the  adjustment  phase. 

LEVEL .OF . DAMAGE  - An  integer  variable  representing  the  number  of 
vehicles  that  were  assessed  as  a k-kill  during  the  MISSION. 
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FO.TGT. RANGE  - A real  variable  representing  the  initial  distance 
between  the  FO  and  the  target  (cluster  centroid),  in  meters. 
LAST.FO.RG  - A real  variable  representing  the  final  distance 
(at  the  last  round  in  FFE)  between  the  FO  and  the  target,  in 
meters . 

GT. INITIAL .RG  - A real  variable  representing  the  initial  range 
between  the  firing  unit  and  the  target. 

GT. FINAL. RG  - A real  variable  representing  the  final  range  (at 
the  last  round  in  FFE)  between  the  firing  unit  and  the  target. 
AMT. OF. HITS  - An  integer  variable  representing  the  number  of 
rounds  that  fell  within  D. RADIUS  distance  (user  input)  from  a 
vehicle  during  the  MISSION. 

RD . 1 . ERROR  - A real  variable  representing  the  radial  error  of 
the  first  adjusting  round  from  the  target. 

RD. 2. ERROR  - A real  variable  representing  the  radial  error  of 
the  final  adjusting  round  from  the  target  if  two  or  more  are 
required.  Equal  to  zero  if  only  one  adjusting  round  is  required. 
BTRY  - An  integer  variable  representing  the  firing  unit  firing 
the  MISSION. 

AMT. IN. CLUSTER  - An  integer  variable  representing  the  number  of 
vehicles  in  the  cluster  that  was  chosen  as  a target. 

ERROR. CODE  - An  integer  variable  indicating  what  type  of  error 
occurred. 

Integer  value  Error 

1 FO  waited  for  over  60  seconds 

for  radio  frequency  - mission 
cancel  1 ed 

2j  FO's  mission  was  too  close  to 

a mission  already  being  fired 
(an  input  value)  - mission 
cancel  led. 
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mission  was  out  of  range  of 
the  firing  unit  - mission 
cancel  1 ed . 

4 (not  used) 

5 all  targets  killed  by  direct 

fire  weapons  during  adjust- 
ment - mission  cancelled. 

6 all  targets  killed  by  direct 

fire  weapons  during  FFE 
phase  - mission  continued. 

7 three  rounds  fired  in  adjust- 

ment - mission  cancelled. 

MSN. TIME  - A real  variable  representing  the  total  duration  of 

the  MISSION.  Initially  is  equal  to  the  time  the  MISSION  started. 

QUEUE. TIME  - A real  variable  representing  the  amount  of  time 

that  a MISSION  waited  to  be  fired  after  it  was  received  by  the 

firing  unit. 

DEL.l  - A real  variable  representing  the  time  between  the  time 
the  FO  clustered  and  the  time  that  the  first  adjusting  round 
landed. 

DEL. 2 - A real  variable  representing  the  time  duration,  in  the 
adjusting  phase,  between  the  first  rounds  impact  and  the  impact 
of  the  second  round, 

FIST  - An  integer  variable  representing  the  FO  who  is  firing 
the  MISSION. 

FIRE. DIR .CENTER  - An  integer  variable  representing  the  fire 
direction  center  which  processes  the  MISSION. 

AMMUNITION .TYPE  - An  integer  variable  representing  the  type  of 
ammunition  being  fired  in  the  MISSION,  with  the  following  values: 
1 - DPI  CM,  2 - HE. 
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NOW. FIRING  - An  integer  variable  representing  the  status  of  the 
MISSION,  with  the  following  values:  0 - adjustment  phase,  1 - 
FFE  phase. 

SPEED  - A real  variable  representing  the  current  speed  of  the 
target. 

SPD. APPARENT  - A real  variable  representing  the  speed  of  the 
target  as  estimated  by  the  FO. 

DIRECTION  - A real  variable  representing  the  current  direction 
of  movement  of  the  target  in  radians,  measured  with  a positive 
value  in  the  counterclockwise  direction  from  East  and  a negative 
value  clockwise  from  East. 

DIR. APPARENT  - A real  variable  representing  the  current  direc- 
tion of  movement  of  the  target  as  estimated  by  the  FO , in  radians 
(measured  as  above) . 

X. CUR4  - A real  variable  representing  the  actual  X coordinate 
of  the  target. 

Y. CUR4  - A real  variable  representing  the  actual  Y coordinate 
of  the  target. 

PRI .OF .CLUSTER  - A real  variable  representing  the  priority  of 
the  cluster. 

X. MPI  - A real  variable  representing  the  X coordinate  of  the 
location  of  the  mean  point  of  impact  of  the  volley  (MPI). 

Y. MPT  - A real  variable  representing  the  Y coordinate  of  the 
MPI  of  the  vol ley. 

X.  FUTURE. LOC  - A real  variable  representing  the  X coordinate  of 
the  estimated  future  location  of  the  target. 

Y.  FUTURE. LOC  - A real  variable  representing  the  Y coordinate  of 
the  estimated  future  location  of  the  target. 
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NO. CLUSTER  - An  integer  variable  representing  the  row  in  the 
array  called  CLUSTERS  that  identifies  the  current  target. 

VOLLEYS . TO . FIRE  - An  integer  variable  representing  the  number 
of  volleys  that  are  to  be  fired  by  the  firing  unit  during  the 
FFE  phase  of  the  MISSION. 

THETA  - A real  variable  representing  the  angle  in  radians  of  the 
gun  target  line,  measured  with  a positive  value  in  the  counter- 
clockwise direction  from  East  and  a negative  value  clockwise 
from  East. 

T. POSITION  - A real  variable  not  currently  used. 

LA8EL  - An  integer  variable  representing  the  gueue  status  of  the 
MISSION,  with  the  following  values:  0 - not  in  HOWITZER .QUEUE , 

1 - waiting  in  HOWITZER .QUEUE . 

Real  Arrays 

RD. OFFSET  - A two  dimensional  array  which  contains  the  impact  coordi- 
nates of  each  round  in  a volley. 

TRAVEL. TIME. ARRAY  - A two  dimensional  array  containing  the  average 
velocity  at  two  thirds  the  maximum  range  of  the  system  for  each  ammu- 
ni  tion/weapon  combination. 

RANGE. 3ANDS  - A two  dimensional  array  containing  the  breaxpoints  of 
the  piecewise  linear  approximations  to  the  impact  point  dispersion 
curves . 


FA. TIME. DELTAS  - A two  dimensional  array  containing  the  parameters 
that  characterize  the  time  distributions  for  all  artillery  tasks. 
TGT.ACQ. ERROR  - A two  dimensional  array  containing  the  parameters 
that  characterize  the  error  distributions  of  the  FO's  target  acquisi- 
tion devices,  different  for  each  device. 
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LETHAL  .RADIUS .ARRAY  - A four  dimensional  array  containing  the  lethal 
radius  for  each  weapon  type/target  type/ammunition  type/level  of 
damage . 

CLUSTERS  - A two  dimensional  array  containing  the  following  informa- 
tion on  each  cluster  of  vehicles:  the  name;  number  of  vehicles  in  the 
cluster;  priority;  the  X coordinate,  the  Y coordinate,  the  speed  and 
the  direction  of  the  cluster;  and  the  X and  Y coordinates  of  the 
first  vehicle  placed  in  the  cluster. 

DISPLACEMENT  - A three  dimensional  array  containing  the  displacements 
of  the  individual  firing  elements  from  the  center  of  the  firing  jnit 
for  each  weapon  type  (Slue  firing  units). 

Integer  Arrays 

C. NUMBER .ARRAY  - A three  dimensional  array  containing  the  name  of 
the  cluster  in  which  each  detected  ’ANK  was  placed. 

RED . PLANNED. e IRES  - A three  dimensional  array  containing  the  'oca- 
tions  of  the  rectangles  being  used  as  targets  by  the  Red  firing  units. 
SIGMA. DPTCM  - A three  dimensional  array  containing  the  parameters  o“' 
the  normal  distributions  that  characterize  the  round  dispersion 
about  the  impact  point.  (DPICM  ammunition  for  Blue  *iring  inits 
only) . 

FO. VEHICLE  - A one  dimensional  array  containing  the  names  of  the 
vehicles  in  which  the  FOs  are  riding. 

Integer  Variables 

YES  - A variable  defined  to  mean  1. 

NO  - A variable  defined  to  mean  0. 

3USY  - A variable  defined  to  mean  1. 

IDLE  - A variable  defined  to  mean  0. 
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ADJ. ROUND  - A variable  defined  to  mean  0. 

VOLLEY  - A variable  defined  to  mean  1. 

DPICM  - A variable  defined  to  mean  1. 

RN. STREAM  - A variable  equal  to  a chosen  random  number  stream  from 
Simscript. 

DEBUG  - A variable  representing  the  amount  of  FA  related  computer 
printout  required.  A 0 indicates  normal  output,  a 1 indicates  that 
each  action  of  the  fire  mission  be  printed,  and  a value  of  5 indi- 
cates that  the  additional  printout  of  the  array  called  CLUSTERS  is 
requi red . 

AMT.RED.3ATTERYS  - A variable  equal  to  the  number  of  Red  firing 
units  created. 

AMT. BLUE. 3ATTERYS  - A variable  equal  to  the  number  of  Blue  firing 
units  created. 

MAX .NUMBER .OF. MISSIONS . PER . F0  - A variable  equal  to  the  maximum  num- 
ber of  missions  that  an  "0  is  allowed  to  process  simultaneously. 

AMT. CALIBERS  - A variable  equal  to  the  number  of  different  types  of 
artillery  weapon  systems. 

LARGEST. NUM. WEAPONS  - A variable  equal  to  the  maximum  number  of  wea- 
pons in  any  of  the  31 ue  firing  units. 

AMT.  AMMO . TYPES  - A variable  equal  to  t.ne  number  of  different  types 
of  artillery  ammunition. 

AMT. FF£. VOLLEYS  - A variable  equal  to  the  number  of  volleys  to  be 
fired  in  the  FFE  phase. 

AMT.MRL  - A variable  equal  to  the  number  of  MRL  batteries. 

AMT. FA. TIME. DELTAS  - A variable  equal  to  the  number  of  different  time 
parameters  used  in  the  array  called  FA . TIME . DELTAS  . 
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NO .RANGE .BANDS  - A variable  equal  to  the  number  of  range  bands  in 
the  array  called  RANGE. 3ANDS. 

MISS .TOLERANCE  - A variable  equal  to  the  minimum  radial  miss  distance 
for  the  FO  to  enter  the  FFE  phase. 

FWD .OBS .MSN .TOLERANCE  - A variable  equal  to  the  minimum  acceptable 
distance  between  two  fire  missions.  If  the  distance  between  two 
fire  missions  is  closer,  the  later  fire  mission  is  cancelled. 

BOX .TOLERANCE  - A variable  equal  to  the  size  of  the  box  used  to 
cluster  vehicles. 

FO. MAX. RANGE  - A variable  equal  to  the  maximum  range  at  which  an  FO 
is  allowed  to  observe  a cluster. 

FO. MIN. RANGE  - A variable  representing  the  minimum  range  at  which 
an  FO  is  allowed  to  observe  a cluster. 

D. RADIUS  - A variable  equal  to  the  specified  radius  within  which  a 
vehicle  is  examined  for  damage. 

SALVOS  - A variable  equal  to  the  number  of  volleys  that  are  fired 
by  the  Red  firing  units  before  shifting  to  another  target. 

NUM.MSNS . FIRED  - A variable  not  currently  used. 

TOW.KOUNT  - A variable  which  indicates  whether  a MRL  volley  has 

<1 

occurred,  with  the  value  of  0 if  no  MRL  volley  has  been  fired  and 
1 if  the  MRL  volley  has  been  fired  or  is  in  the  process  of  being 
fi red . 

LCOUNT  - A variable  used  to  number  missions  as  they  are  created. 

RED. OFF  - A variable  used  to  represent  the  status  of  the  RED  planned 
fires.  The  value  of  0 indicates  that  fires  are  active,  while  a 
value  of  1 indicates  that  the  Red  forces  have  closed  to  within  1500 
meters  of  the  Blue  positions  and  the  Red  planned  fires  are  to  be 
terminated  in  100  seconds. 
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Real  Variables 


RED .1 .CONSTANT  - A variable  representing  the  conversion  factor  to  be 
used  for  calculating  effects  of  the  MRL  volley  when  using  the  array 
called  ARTY. PK. TABLE. 

Coding  and  Brief  Explanation 

The  coding  for  the  PREAMBLE  additions  is  shown  below,  followed  by  a 
brief  explanation  where  meanings  are  not  obvious. 

70  THE  SYSTEM  HAS  A C .NUMBER. ARRAY(.*/4) 

71  DEFINE  C. NUMBER. ARRAY  AS  AN  INTEGER  3-DIMENSIONAL  ARRAY 

72  THE  SYSTEM  HAS  A RED. PLANNED. FIRES (*/ 4) 

73  DEFINE  RED . PLANNED . FIRES  AS  AN  INTEGER  3-DIMENSIONAL  ARRAY 

74  THE  SYSTEM  HAS  A SIGMA. DPICM(*/2) 

73  DEFINE  SIGMA. DPICM  AS  AN  INTEGER  3-DIMENSIONAL  ARRAY 
76  THE  SYSTEM  OWNS  A HOLDING. MSNS  AND  A MSN. QUEUE 
78  PERMANENT  ENTITIES 

81  EVERY  FO  HAS  A PO INTING .TO , A MY. RADIO, A STATUS, A WAIT. TIME, 

32  A AMT. ACTIVE. MSNS,  A TYPE,  A STATE4 , 

33  A LAST. CLUSTERED  AND  A AMT . MSNS . FIRED 

34  EVERY  BATTERY  HAS  A C0L0R1.A  CALIBER, A NUM.GUNS,A  X.CURl  , 

35  AY.CURl.A  MAX. RANGE, A NUM. DPICM. LEFT, A MUM. HE. LEFT, 

36  A NO. MSNS. FIRED, A STATE1 ,A  ST. FIRING, A QUEUE. SIZE, 

37  A RATE. OF. FIRE, A WHICH .VOLLEY, A KOUNT  AND  OWNS  A 

88  HOWITZER. QUEUE 

39  EVERY  FDC  HAS  A STATED , A C0L0R2,A  NUM .MISS IONS  , AN  X.CUR2, 

90  A Y.CUR2,  AND  A START . PROCESS 
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91  EVERY  RADIO  HAS  A STATE  3 

92  TEMPORARY  ENTITIES 

122  EVERY  MISSION  HAS  A MSN. NAME, A NUM .ADJ . ROUNDS  , 

123  A LEVEL. OF. DAMAGE, AN  FO .TGT . RANGE .A  LAST . FO . RG  , 

124  A GT. INITIAL. RG, A GT . FINAL .RG,A  AMT. OF. HITS, 

125  A RD. 1 .ERROR, A RD. 2. ERROR, A BTRY  ,A  AMT . IN . CLUSTER , 

126  AN  ERROR. CODE, A MSN. TIME, A QUEUE. TIME, A DEL  . 1 , 

127  A DEL. 2,  A FIST, A FIRE . DIR .CENTER  , 

12S  AN  AMMUNTION . TYPE ,A  NOW. FIRING, A SPEED, 

129  A SPD. APPARENT, A DIRECTION, A D IR .APPARENT , A X.CUR4, 

130  A Y.CUR4.A  PRI .OF .CLUSTER .AN  X.MRI,  A Y.MPI, 

131  A X. FUTURE. LOC, A Y . FUTURE . LOC , A NO. CLUSTER, 

132  A VOLLEYS. TO. FIRE, A THETA, A T. POSITION, A LABEL 

133  AND  MAY  BELONG  TO  A HOWITZER .QUEUE, A MSN. QUEUE  AND 

134  A HOLDING. MSNS 

135  DEFINE  POINTING. TO.  MY. RADIO,  STATUS, 

136  AMT. ACTIVE. MSNS, TYPE, STATE4,  AND  AMT .MSNS . FIRED 

137  AS  INTEGER  VARIABLES 

138  DEFINE  COLOR l , CAL IBER , NUM . GUNS .MAX . RANGE .NUM .OPICM . LEFT , 

139  NUM. HE. LEFT, NO. MSNS. FIRED, STATE1  .QUEUE. SIZE, 

140  WHICH. VOLLEY  AND  KOUNT  AS  INTEGER  VARIABLES 

141  DEFINE  STATE2  .C0L0R2  AND  NUM. MISSIONS  AS  INTEGER  VARIABLES 

142  DEFINE  STATE3  AS  AN  INTEGER  VARIABLE 

143  DEFINE  MSN . NAME , NUM .ADJ . ROUNDS .LEVEL . OF . DAMAGE , AMT . OF .H ITS 

144  BTRY. AMT. IN. CLUSTER, ERROR. CODE, FIST, FIRE. DIR. CENTER, 

145  AMMUNITION. TYPE, NOW. FIRING, NO. CLUSTER, VOLLEYS. TO. FIRE 

146  AND  LABEL  AS  INTEGER  VARIABLES 
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147  DEFINE  DPICM, VOLLEY , YES .BUSY ,ADJ . ROUND, NO  AND  IDLE  AS 

148  INTEGER  VARIABLES 

149  DEFINE  DPICM  TO  MEAN  1 

150  DEFINE  VOLLEY  TO  MEAN  1 

151  DEFINE  YES  TO  MEAN  1 

152  DEFINE  BUSY  TO  MEAN  1 

153  DEFINE  ADJ. ROUND  TO  MEAN  Q 

154  DEFINE  NO  TO  MEAN  Q 

155  DEFINE  IDLE  TO  MEAN  0 

156  DEFINE  RN. STREAM, DEBUG, AMT. RED. SATTERYS , AMT. BLUE .BATTERYS  , 

157  MAX. NUMBER. OF. MISS  IONS. PER. FO, AMT. CALIBERS, 

158  LARGEST. NUM.WPNS, 

159  AMT. AMMO. TYPES, AMT. FFE. VOLLEYS, AMT. MRL, 

160  AMT . FA .TIME . DELTAS , NO . RANGE . BANDS ,MISS . TOLERANCE , 

161  FWD.OBS. MSN. TOLERANCE, BOX. TOLERANCE, FO. MAX. RANGE, 

162  FO. MIN. RANGE, D. RADIUS, SALVOS, NUM.MSNS. FIRED, 

163  TOW . KOUNT ,LCOUNT  AND  RED. OFF  AS  INTEGER  VARIABLES 

164  DEFINE  RED . 1 . CONSTANT  AS  A REAL  VARIABLE 

165  DEFINE  FO. VEHICLE  AS  AN  INTEGER  1 - D I MENS IONAL  ARRAY 

166  DEFINE  RD . OFFSET, TRAVEL . TIME .ARRAY .RANGE .SANDS  , 

167  FA. TIME. DELTAS,  AND  TGT.ACQ. ERROR  AS  REAL  2-DIMENSIONAL 

168  ARRAYS 

169  DEFINE  LETHAL. RADIUS .ARRAY  AND  ARTY . PK . TABLE  AS  REAL 

170  4-DIMENSIONAL  ARRAYS 

171  DEFINE  DISPLACEMENT  AND  CLUSTERS  AS  REAL  3-DIMENSIONAL  ARRAYS 

172  EVENT  NOTICES  INCLUDE  STOP. SIMULATION, ATTRITION, CHECK  AND 
SHUT. OFF 

185  EVERY  FO. NOT. BUSY  HAS  A F07 
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186  EVERY  UPDATE. CLUSTER  HAS  A SPEC.FO 

187  EVERY  COMMO. ATTEMPT  HAS  A F06,  A MSN 6 AND  A RAD6 

188  EVERY  OPEN.RADrO.NET  HAS  A RAD7 

189  EVERY  BUSY.RADIO.NET  HAS  A RADS 

190  EVERY  FDC. PROCESSING  HAS  A NEW.l.FO  AND  A DIF. MSN 

191  EVERY  CHECKING. GUNS. AVAILABILITY  HAS  A BTRY1 , A FDC1, 

192  A F01 , AND  A MSN1 

193  EVERY  GUNS. FIRING  HAS  A BTRY2  ,A  FDC2 , A F02,  AND  A MSN2 

194  EVERY  ARTY. IMPACT  HAS  A BTRY3  ,A  FDC3,A  F03,  AND  A MSN3 

195  EVERY  END. OF. MISSION  HAS  A 3TRY4 ,A  FDC4,A  F04 , AND  A MSN4 

196  EVERY  RED. ARTY. FIRES  HAS  A IT  AND  A BTRY5 

197  EVERY  MRL. IMPACT  HAS  A X. PLACE  AND  A Y. PLACE 

198  EVERY  ALT. FO  HAS  A NAME9 

199  DEFINE  FA . 1 .MAIN , FA . 2 .MAIN  AND  PREPLANNED  AS  RELEASABLE  ROUTINES 

Lines  70,  72,  74  declare  C .NUMBER .ARRAY .RED . PLANNED .FIRES,  and 

SIGMA. DPICM  as  packed  integer  arrays. 

Line  76  defines  two  sets  owned  by  the  system,  as  opposed  to  those 
owned  by  entities. 

Line  199  defines  FA. 1. MAIN,  FA. 2. MAIN,  and  PREPLANNED  as  releasable 
routines.  (Their  core  storage  can  be  released  after  use.) 

2 . MAIN  Program 

The  MAIN  program  of  the  STAR  model  prepares  the  model  for  execu- 
tion. It  reserves  space  for  arrays,  sets  initial  values  of  global 
variables,  and  creates  the  appropriate  Blue  and  Red  systems.  It  schedules 
those  events  that  start  the  simulation.  In  order  to  comply  with  system 
requirements  of  the  IBM  computer  that  was  used,  the  additions  to  the  main 
for  the  FA  model  were  designed  as  routines  to  be  called  from  the  STAR 
MAIN. 
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Coding  and  Brief  Explanation 


50  CALL  FA. 1. MAIN 

83  CALL  FA. 2. MAIN 

84  RELEASE  FA. 1. MAIN  RELEASE  FA. 2. MAIN 

Lines  50  and  83  call  the  MAIN  routines  from  the  FA  model. 

Line  84  releases  the  core  storage  allocated  to  routines  FA. 1. MAIN 
and  FA. 2. MAIN,  after  they  have  been  executed. 

3.  Routine  FA. I. MAIN 
Description 

Routine  FA. 1. MAIN  partially  fulfills  the  function  of  the 
MAIN  for  the  FA  module:  variables  and  arrays  are  read  into  the 
program,  arrays  are  dimensioned,  entities  are  created,  and 
attributes  are  assigned  values.  This  routine  is  called  by  the 
MAIN  and  calls  routine  PREPLANNED. 

Local  Variables 

I,J,K,L  - Integer  variables  that  are  used  as  counters  for 
do  loops. 

Coding  and  Brief  Explanation 

1 ROUTINE  FA. 1. MAIN 

2 DEFINE  I, J,K  AND  L AS  INTEGER  VARIABLES 

3 READ  RN. STREAM, DEBUG, FO. MIN. RANGE, FO. MAX. RANGE, 

4 BOX .TOLERANCE , MISS . TOLERANCE , FWD .OBS .MSN . TOLERANCE 

5 READ  N.FO.N.FDC.N. RADIO, N. BATTERY. AMT. BLUE. BATTERYS 

6 AMT. RED. BATTERYS, MAX. NUMBER. OF. MISSIONS. PER. FO, 

7 AMT. CALIBERS, NO. RANGE. BANDS, AMT. FA. TIME. DELTAS, 

8 LARGEST. NUM.WPNS , AMT. AMMO . TYPES , AMT .MRL , 

9 AMT. FFE. VOLLEYS 

10  RESERVE  FO.VEHICLES(*)  AS  N.FO 
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11  RESERVE  FA. TIME. DELTAS  (*,*)  AS  AMT. FA. TIME. DELTAS  BY  3 

12  RESERVE  SIGMA .DPICMt* ,* ,*)  AS  NO. RANGE. BANDS  BY  6 BY 

13  AMT. CALIBERS 

14  RESERVE  RANGE. BANDS(*,*)  AS  NO. RANGE. BANDS  BY  AMT. CALIBERS 

15  RESERVE  CLUSTERS(*,*,*)  AS  30  BY  8 BY  N.FO 

16  RESERVE  C . NUMBER .ARRAY ( *,*,*}  AS  R.NUM. ALIVE  BY  N.FO  BY 

17  MAX. NUMBER. OF. MISS  IONS. PER. FO 

13  RESERVE  D I S PLACEMENT (*,*,*)  AS  LARGEST . NUM .WPNS  BY  2 BY 

19  AMT. BLUE. BATTERYS 

20  RESERVE  TRAVEL. TIME. ARRAY(*,*)  AS  AMT. CALIBERS  BY 

21  AMT. AMMO. TYPES 

22  RESERVE  ARTY. PK. TABLE (*,*,*,*)  AS  AMT. CALIBERS  BY  9 BY 

23  AMT. AMMO. TYPES  BY  3 

24  RESERVE  LETHAL . RADIUS .ARRAY (*,*,*,*)  AS  AMT. CALIBERS  BY  9 BY 

25  AMT. AMMO. TYPES  BY  3 

26  RESERVE  TGT.ACQ.ERROR(*,*)  AS  2 BY  3 

27  READ  TGT.ACQ. ERROR, FO. VEHICLE 

28  LET  D. RADIUS  = 50 

29  LET  SALVOS  = 1 

30  CREATE  EVERY  FO 

31  CREATE  EVERY  FDC 

32  FOR  1=1  TO  N. FDC,  DO 

33  READ  C0L0R2(I)  ,X.CUR2(I)  ,Y.CUR2(I) 

34  LOOP 

35  CREATE  EVERY  RADIO 

36  CREATE  EVERY  BATTERY 

37  FOR  I = 1 TO  N. BATTERY,  DO 

38  READ  NUM . GUNS ( I ) , COLOR 1 ( I),X.CUR1(I),Y. CUR1 ( I ) , 
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39  NUM .DPI CM . LEFT  Cl) ,CALIBER( I ) ,MAX ,RANGE( I ) , 

40  RATE .OF.FIRE(I) 

41  LET  NUM.HE.LEFT(I)  = 0 

42  LET  NUM.DPICM.LEFT(I)  = 0 

43  LOOP 

44  FOR  L = 1 TO  3,  DO 

45  FOR  K = 1 TO  AMT. AMMO. TYPES , 00 

46  FOR  T = 1 TO  AMT. CALIBERS,  DO 

47  FOR  J = 1 TO  9,  DO 

48  READ  ARTY . PK.TABLECl, J ,K,L) 

49  IF  ARTY.PK.TABLE(.I, J,K,L)  = 0 

50  GO  TO  L00P1 

51  ELSE 

52  LET  LETHAL. RADIUS. ARRAYCI.J.K.L)  = 

53  SQRT.F(ARTY . PK. TABLE ( I,J,K,L)/PI.C) 

54  LET  ARTY. PK.TABLE( I , J,K.L)  = ARTY . PK .TABLE( I , J ,K.L)/30000 

55  1 L00P1 ' LOOP  REPEAT  REPEAT  REPEAT 

56  LET  RED. 1. CONSTANT  = 240/3 

57  READ  TRAVEL. TIME. ARRAY 

58  FOR  K = 1 TO  AMT. BLUE. BATTERYS,  DO 

59  FOR  I = 1 TO  NUM. GUNS (K),  DO 

60  FOR  J = 1 TO  2,  DO 

61  READ  DISPLACEMENTS , J ,K) 

62  LOOP  REPEAT  REPEAT 

63  READ  RANGE. BANDS 

64  FOR  K = 1 TO  AMT. CALIBERS,  DO 

65  FOR  r = 1 TO  NO. RANGE. BANDS,  DO 

66  FOR  J = 1 TO  6,  DO 
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67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


READ  SIGMA. DPICM(I.J.K) 

LOOP  REPEAT  REPEAT 
READ  FA. TIME. DELTAS 

RESERVE  RED. PLANNED . FIRES( * ,* ,*)  AS  30  BY  4 BY 
AMT.RED.3ATTERYS  - AMT.MRL 
CALL  PREPLANNED! 3 ,40 ,3  ,60 ,1  ,0) 

CALL  PREPLANNED! 2 ,39, 3, 34, 1,3) 

CALL  PREPLANNED (2, 60, 3, 35,1  ,5) 

RELEASE  PREPLANNED 
RETURN  END 


Lines  1-2  define  the  routine  and  the  local  variables. 

Lines  3-9  read  in  values  for  global  variables. 

Lines  10-26  dimension  some  of  the  arrays  defined  in  the  PREAMBLE. 

Line  27  reads  in  the  values  for  the  target  acquisition  error  array 
and  the  FO  vehicle  array. 

Lines  23-29  define  initial  values  for  PREAMBLE  defined  global 
variables . 

Line  30  creates  each  entity  that  represents  a forward  observer. 

Lines  31-34  create  each  entity  that  represents  a FDC  and  read  in 
initial  attribute  values. 

Line  35  creates  each  entity  that  represents  a radio  frequency. 

Lines  36-43  create  each  entity  that  represents  a firing  unit  and 
read  in  initial  attribute  values. 

Lines  44-55  read  in  all  lethal  areas,  convert  to  both  lethal  radii 
and  the  probability  of  damage  over  a 300  meter  X 100  meter  area. 

Line  56  initializes  a conversion  factor  to  be  used  when  a value 
from  array  ARTY. PK. TABLE  is  used  to  determine  MRL  lethality. 
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Line  5?  reads  in  the  values  of  the  average  velocity  of  different 


ammunition . 

Lines  58-62  read  in  the  displacement  for  each  weapon  from  the  center 
of  the  firing  unit. 

Line  63  reads  in  the  breakpoints  of  the  linear  approximation  to  the 
round  impace  dispersion  curves. 

Lines  64-68  read  in  the  values  of  the  round  impact  dispersion  at  each 
breakpoint. 

Line  69  reads  in  time  parameters. 

Lines  70-71  reserve  array  storage  for  the  array  called  RED. PLANNED. 
FIRES. 

Lines  72-74  call  routine  PREPLANNED  to  create  the  targets  for  use  in 
RED  planned  fires. 

Line  ’5  releases  the  core  storage  that  had  been  reserved  for  routine 
PREPLANNED. 

Line  76  returns  control  to  the  MAIN. 

4.  Routine  FA , 2 .MAIN 
Descri ption 

Routine  FA. 2. MAIN  completes  the  function  of  the  MAIN  for  the 
FA  model.  Input  values  are  initialized,  selected  input  values 
are  printed,  and  initial  FO  clustering  times  and  Red  planned 
fires  are  initiated.  This  routine  is  called  by  MAIN  and  schedules 
events  RED. ARTY. FIRES  and  UPDATE. CLUSTER. 

Local  Variables 

I - An  integer  variable  used  as  a counter  for  a do  loop 
Coding  and  Brief  Explanation 

1 ROUTINE  FA. 2. MAIN 

2 DEFINE  I AS  AN  INTEGER  VARIABLE 


! 


■i 


r 


p 


3 FOR  I * 1 TO  N..FO,  DO 

4 LET  FA ( RRRPO I N T( FO. VEHICLE ( I ) ) ) * I 

5 LET  POINTING.  TO ( I ) =■  RRRPOINT (FO.VEHICLE(  I ) ) 

6 LET  TYPE(I)  = 1 

7 LOOP 

3 PRINT  48  LINES  WITH  RN. STREAM, DEBUG, FO. MIN. RANGE, 

FO. MAX. RANGE, 30X. TOLERANCE, MISS. TOLERANCE, 

FWD.OBS. MSN. TOLERANCE, MAX. NUMBER, OF. MI  SSI ONS. PER. FO, 
AMT. CALIBERS, NO. RANGE. BANDS,  AMT. FA. TIME. DELTAS, 
LARGEST. NUM.WPNS, AMT. AMMO. TYPES, AMT. MRL, 

AMT. FFE. VOLLEYS. 8. NUM. ALIVE, R. NUM. ALIVE.N. TANKS, N.FO, 
N.FDO.N, RADIO, N, BATTERY, AMT. BLUE. BA TTERYS  AND 
AMT.RED.3ATTERYS  THUS 


9 

10 
11 
12 

13 

14 

15 

RN  STREAM 
DEBUG 

FO  MIN  RANGE 
FO  MAX  RANGE 
BOX  TOLERANCE 
MISS  TOLERANCE 
FWD  OBS  TOLERANCE  a 
MAX  MSN  FO 
AMT  CALIBERS 
NO  RANGE  BANDS 
AMT  FA  TIME  OELTAS  3 
LARGEST  NUM  WPNS 
AMT  AMMO  TYPES 
AMT  MRL 

AMT  FFE  VOLLEYS 
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B NUM  ALIVE 


R NUM  ALIVE  = ** 

N. TANKS  = ** 

N.FO  = ** 

N.FDC  = ** 

N. RADIO  = ** 

N. BATTERY  * ** 

AMT  BLUE  3ATTERYS  * ** 

AMT  RED  BATTERYS  = ** 

16  FOR  I = 1 TO  N.FO,  DO 

17  SCHEDULE  AN  UPDATE . CL US TER ( I ) IN  (10*1)  UNITS 

IS  LOOP 

10  FOR  1=1  TO  AMT. RED. BATTER YS- AMT. MRL,  DO 

20  SCHEDULE  A RED. ARTY. FIRES( 1 , AMT. BLUE. 3ATTERYS+I ) IN  1*10 

21  UNITS 

22  LOOP 

23  RETURN  END 

Lines  1-2  define  the  routine  and  the  local  variable. 

Lines  3-7  initialize  attributes  of  the  FO  and  his  venicle. 

Lines  3-15  echo  print  input  values. 

Lines  16-13  schedule  an  initial  clustering  for  each  FO. 

Lines  19-22  schedule  an  initial  planned  fire  for  each  Red  battery. 

Line  23  returns  control  to  the  MAIN. 


Event  FO. NOT, BUSY  simulates  the  FO  becoming  idle  after 
finishing  a fire  mission.  It  schedules  an  UPDATE..CLUSTER  at 


that  time.  This  event  is  scheduled  by  event  COMMO. ATTEMPT  and 
event  END. OF. MISSION. 


Local  Variables 

ID.FO  - An  integer  variable  representing  the  FO. 
Coding  and  Brief  Explanation 

1 UPON  FO.NOT.BUSY(ID.FO) 

2 DEFINE  ID.FO  AS  AN  INTEGER  VARIABLE 

3 SCHEDULE  AN  UPDATE..CLUSTER(  ID.  FO)  NOW 

4 IF  AMT. ACTIVE. MSNS( ID.FO)  = 0 

5 LET  STATUS (ID.FO)  = IDLE 

6 ALWAYS 

7 RETURN  END 

Lines  1-2  define  the  event  and  the  local  variable. 

Line  3 schedules  the  time  of  the  next  clustering  for  the  FO. 
Lines  4-6  set  the  FO's  status  to  idle  if  he  does  not  have  any 


missions . 


Line  7 returns  control  to  the  system  timer. 
6.  Event  UPDATE. CLUSTER 


Oescri ption 

Event  UPDATE. CLUSTER  simulates  the  forward  observer's  ac- 
tions during  the  clustering  of  vehicles.  It  calls  routine 
DOING. CLUSTERS  to  perform  the  clustering  algorithm.  Both  the 
name  and  the  priority  of  the  most  important  cluster  are  returned 
as  arguments.  If  the  priority  is  strictly  positive,  routine 
NEW. MISSION  is  called  to  create  a fire  mission.  The  cluster's 
future  location  is  estimated  and  the  FO  attempts  to  pass  the 
fire  mission  to  the  FDC.  This  event  is  scheduled  by  event 


FA. 2. MAIN,  event  FO. NOT. BUSY  and  itself.  It  calls  routines 


1 

ARTY. TIME. NEW. LOCATION. DOING. CLUSTERS  and  NEW. MISSION.  It 
schedules  event  COMMO. ATTEMPT. 

Local  Variables  1 

ID.EO  - An  integer  variable  representing  the  forward 
observer.  I 

ID. MISSION  - An  integer  variable  representing  the  newly 
created  mission. 

NAME. PRIORITY  - An  integer  variable  representing  the 
cluster  with  the  highest  priority, 

M - An  integer  variable  representing  the  newly  created 

mission. 

TOTAL. CLUSTERS  - An  integer  variable  equal  to  the  total 
number  of  clusters  that  the  FO  created. 

*1 

TIME. I - A real  variable  representing  the  interval  after 
which  tne  event  UPDATE.CLUSTER  is  rescheduled. 

TIME . 2 - A real  variable  representing  the  time  interval 
after  which  a communications  attempt  will  be  made. 

ESTIMATE.OF. TIME  - A real  variable  representing  the  estimate 
of  the  time  between  the  FO's  call  for  fire  and  the  impact  of  the 
adjusting  round. 

PRI. VALUE  - A real  variable  representing  the  value  of  the 
priority  of  the  most  important  cluster. 

Coding  and  3rlef  Explanation 
1 UPON  UPDATE. CLUSTERING( ID. FO) 

0 DEFINE  ID. FO, ID. MISSION, NAME. PRIORITY  AND  M AS  INTEGER 
3 VARIABLES 

' DEFINE  T0TAL. CLUSTERS  AS  AN  INTEGER  VARIABLE 
5 DEFINE  TIME. 1, TIME. ’.ESTIMATE. OF. TIME  AND  PRI  VALUE  AS  REAL 


w 

— - ^ 

6 

VARIABLES 

7 

CALL  ARTY. TIME ( 1 ) YIELDING  TIME.l 

3 

SCHEDULE  AN  UPDATE. CLUSTER( ID. FO)  IN  TIME  1 UNITS 

9 

IF  ALIVE. DEAD ( POINTING. TO ( ID. FO ) ) = 1 

i 

10 

RETURN  ELSE 

11 

IF  M. BLUE, ALIVE  (POINTING. T0( ID. FO) ) = 0 RETURN  ELSE 

12 

IF  AMT. ACTIVE. MSNS(ID.FO)  = MAX , NUMBER. OF. MISS  IONS . PER. FO 

13 

RETURN  ELSE 

14 

IF  DEBUG  GE  1 

15 

SKI0  1 OUT°UT  LINE 

16 

START  NEW  LINE 

17 

PRINT  1 LINE  WITH  ID.FO  ANO  TIME.V  THUS 

F0  ♦ 

CLUSTERING  TIME  = ♦'**♦.* 

13 

SKIP  1 OUTPUT  LINE 

19 

ALWAYS 

20 

LET  STATE4( ID.FO)  = STATE4( ID. FO)  * 1 

1 1 

L 1 

IF  STATE4( ID.FO)  * MAX. NUMBER. OF. MISSIONS. PER. FO  * 1 

p «*» 

LET  STATE4( ID.FO)  = 1 

23 

ALWAYS 

24 

LET  LAST. CLUSTERED! ID.FO)  = TIME.V 

25 

CALL  DOING. CLUSTERS! ID.FO)  YIELDING  NAME. PRIORITY , 

26 

PR I. VALUE  AND  TOTAL. CLUSTERS 

*.  / 

IF  PR I. VALUE  =>  0 

23 

LET  STATE4(ID.F0)  = STATE4( ID. FO)  - 1 

29 

ALWAYS 

30 

IF  PRI. VALUE  GT  0 

31 

LET  STATUS! ID.FO)  = 3USY 

CALL  NEW. MISSION(IO.FO, NAME. PRIORITY. PRI. VALUE)  YIELDING  M 
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33  LET  ID. MISSION  =■  M 

34  LET  MSN. TIME( ID- MISSION)  = TIME.V 

35  LET  ESTIMATE. OF. TIME  = 100 

36  'NEXT' 

37  CALL  NEW .LOCATION ( ID. MI  SSI  ON .ESTIMATE . OF . TIME, I ) 

38  LET  AMT, ACTIVE. MSNS(ID.FO)  = 

39  AMT. ACTIVE. MSNS(ID.FO)  + 1 

40  CALL  ARTY.TIME(Z)  YIELDING  TIME. 2 

41  SCHEDULE  A COMMO.ATTEMPT( ID. FO . ID. MISSION , 1 ) IN  TIME, 2 UNITS 

42  LET  PRI. VALUE  = 0 

43  ALWAYS 

44  RETURN  END 

Lines  1-6  define  the  event  and  the  local  variables. 

Lines  7-8  schedule  the  event  at  the  appropriate  time. 

Lines  9-10  check  whether  the  FO  is  dead.  If  he  is  dead,  control  is 
returned  to  the  system  timer. 

Line  11  checks  whether  the  FO  is  dead.  If  so,  control  is  returned  to 
the  system  timer.  (A  different  attribute  is  checked  than  was  checked 
above. ) 

Lines  12-13  check  whether  the  FO  has  the  maximum  number  of  missions 
that  he  is  allowed.  If  so,  control  is  returned  to  the  system  timer. 

Lines  14-19  are  a print  option. 

Lines  20-23  increment  the  value  of  STATE4  up  to  the  maximum  number 
of  missions  allowed  the  FO. 

Line  24  updates  the  time  of  clustering. 

Lines  25-26  call  routine  DOING. CLUSTERS. 

Lines  27-29  check  if  the  priority  is  zero.  If  so,  the  value  of 
STATE4  is  reduced  by  one. 
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Lines  30-43  check  if  the  value  of  PRI. VALUE  is  strictly  positive. 

If  so,  it  sets  up  the  procedures  to  start  a new  mission. 

Line  44  returns  control  to  the  system  timer. 

7.  Event  COMHO  ATTEMPT 
Descri ption 

Event  C0MM0. ATTEMPT  is  scheduled  by  event  UPDATE. CLUSTER 
and  by  itself.  It  simulates  a radio  transmission  on  a specific 
frequency.  It  calls  Routine  ARTY. TIME  for  the  appropriate  time 
of  transmission.  The  event  checks  to  see  if  frequency  is  idle 
before  transmitting.  If  the  frequency  is  idle,  the  transmission 
is  received  i n a DS  firing  unit  FDC  at  the  end  of  a specific 
number  of  seconds.  If  the  frequency  is  busy,  the  message  is  not 
transmitted  and  the  frequency  is  checked  every  5 seconds  to  see 
if  it  is  free.  If  the  FO  waits  over  60  seconds,  the  mission  is 
cancelled  andthe  attribute  ERROR. CODE  is  given  the  value  of  1. 
The  event  COMMO. ATTEMPT  schedules  event  0PEN.RADI0.NET,  event 
FDC.  PROCESSING,  and  itself. 

Local  Variables 

'n.FO  - An  integer  variable  representing  the  FO  attempting 
the  communication. 

ID. MISSION  - An  integer  variable  representing  the  mission 
being  passed  to  the  FDC. 

ID. RADIO  - An  integer  variable  representing  the  radio  fre- 
quency being  used. 

TIME  - A real  variable  representing  the  time  requi red  to 
make  the  transmission,  as  returned  by  ARTY. TIME. 

Coding  and  Brief  Explanation 
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1 UPON  COMMO.ATTEMPKID.FO, ID. MISSION, 10. RADIO) 

2 OEFINE  ID. FO,  ID. RADIO  AND  ID. MISSION  AS  INTEGER  VARIABLES 

3 DEFINE  TIME  AS  A REAL  VARIABLE 

4 IF  WAIT.TIME(ID.FO)  EQ  0 

5 LET  WAIT . TIME ( I D. FO ) * TIME.V 

6 ALWAYS 

7 IF(TIME.V-WAIT.TIME( ID. FO) ) GT  60 

8 LET  ERROR. CODE ( ID. MI  SSI ON)  « 1 
0 LET  WAIT. TIME ( ID. FO)  ■ 0 

10  SCHEDULE  A FO .NOT. BUSY ( I D . FO)  NOW 

11  RETURN  ELSE 

1 2 IF  S TA TE 3 ( ID. RADIO)  * IDLE 
IJ  LET  WAIT. TIME( ID. FO)  - 0 

14  CALL  ARTY, TIME (3)  YIELDING  TIME 

15  SCHEDULE  A FOC. PROCE$SING( ID. FO. ID, MISSION)  IN  TIME  UNITS 

16  LET  STATE3( ID. RADIO)  « 1 

17  SCHEDULE  AN  OPEN .RADIO. NET( ID. RADIO)  IN  TIME  UNITS 

18  RETURN  ELSE 

H SCHEDULE  A COMMO. ATTEMPT ( I D. FO, I D.MI SS ION , l D. RADIO ' IN  5 

20  UNITS 

21  RETURN  END 

Lines  1-3  define  the  event  and  local  variables. 

Lines  4-6  set  the  value  of  attribute  WAIT. TIME  to  the  current  value 
of  the  simulation  time  if  this  is  the  first  attempt  at  transmi tt i mj. 

Lines  7-11  test  whether  the  FO  has  waited  over  60  seconds.  If  m>. 
control  is  returned  to  the  system  timer. 

Line  12  tests  if  the  radio  is  idle. 


Line  13  sets  the  attribute  WAIT. TIME  to  0. 


Line  14  calls  Routine  ARTY. TIME  for  the  time  parameter. 

Line  15  schedules  the  event  FDC. PROCESSING  in  time  seconds. 

Line  16  sets  the  radio  to  busy. 

Lines  17-18  schedule  the  event  0PEN.RADI0.NET  in  time  seconds  and 
control  is  returned  to  the  system  timer. 

Lines  19-21  reschedule  another  C0MM0. ATTEMPT  in  5 seconds  if  the 
radio  is  busy  and  control  is  returned  to  the  system  timer. 

3.  Event  OPEN, RADIO 
Descri pti on 

Event  OPEN. RADIO  simulates  a radio  frequency  becoming  avail- 
able for  use.  It  is  scheduled  by  event  C0MM0. ATTEMPT , event 
GUNS. FIRING,  event  ARTY. IMPACT,  and  event  END. OF. MISSION. 

Local  Variable 

ID. RADIO  - An  integer  variable  representing  the  radio  fre- 
quency. 

Coding  and  Brief  Explanation 

1 UPON  OPEN. RADIO. NET(ID. RADIO) 

2 DEFINE  ID. RADIO  AS  AN  INTEGER  VARIABLE 

3 LET  STATE3( ID. RADIO)  = 0 

4 RETURN  END 

Lines  1-2  define  the  event  and  the  local  variable. 

Line  3 sets  the  attribute  STATE3  to  free. 

Line  4 returns  control  to  the  calling  event. 

9.  Event  BUSY. RADIO 
Description 

Event  BUSY. RADIO  simulates  a radio  frequency  becoming  busy. 
It  is  scheduled  Ly  event  GUNS. FIRING  and  event  ARTY. IMPACT. 
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Local  Variable 


ID. RADIO  - An  integer  variable  representing  a radio  frequency. 

Coding  and  Brief  Explanation 

1 UPON  BUSY. RADIO. NET(ID. RADIO) 

2 DEFINE  ID. RADIO  AS  AN  INTEGER  VARIABLE 

3 LET  STATE3( ID. RADIO)  = 1 

4 RETURN  END 

Lines  1-2  define  the  event  and  the  local  variable. 

! 

Line  3 sets  the  attribute  STATE3  to  busy. 

Line  4 returns  control  to  the  calling  event. 

f* 

10.  Event  FDC . PROCESSING 
Descri ption 

*^i 

Event  FDC. PROCESSING  simulates  a fire  direction  center  process- 
ing a fire  mission.  It  checks  the  target  to  see  if  it  is  too  close 
to  any  other  targets  currently  being  a fired  upon.  If  not,  the 
event  checks  the  target  location  to  insure  that  it  is  within  range 
of  the  selected  firing  unit.  The  event  is  cancelled  if  any  of  the 
tests  are  failed.  Event  FDC. PROCESSING  is  scheduled  by  event  C0MM0 . 

ATTEMPT.  Event  FDC . PROCESSING  schedules  event  CHECKING. GUNS. 

AVAILABILITY  and  event  END. MISSION  and  calls  routine  ARTY. TIME  and 
DIST. 

Local  Variables 

I - An  integer  variable  used  as  a counter  for  do  loops. 

ID.FO  - An  integer  variable  representing  the  F0 
ID. MISSION  - An  integer  variable  representing  the  mission 
being  fired. 

ID.3TRY  - An  integer  variable  representing  the  firing  unit 
selected  to  fire  the  mission. 

illitiiMiiii 
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DIFF  - A real  variable  representing  the  range  between  any 
two  targets  that  are  checked  for  proximity. 

TIME  - A real  variable  representing  the  time  increment 
until  the  mission  is  finished  processing  in  the  FDC. 

XX  - A real  variable  representing  the  difference  between 
the  X coordinate  of  the  target  and  the  X coordinate  of  the  firing 
unit.  j 

YY  - A real  variable  representing  the  difference  between  the 
Y coordinate  of  the  target  and  the  Y coordinate  of  the  firing  unit. 

RG  - A real  variable  representing  the  range  between  the 
target  and  the  firing  unit.  i»j 

Coding  and  Brief  Explanation 

1 UPON  FDC. PROCESSING ( ID. FO, ID. MISS  ION) 

2 DEFINE  I , J,K,L,M» ID. FO, ID. MISS ION, ID. BTRY, VOLLEYS, 

3 AND  TYPE. AMMO  AS  INTEGER  VARIABLES 

4 DEFINE  DIFF. TIME, YY,RG  AND  XX  AS  REAL  VARIABLES 

5 IF  DEBUG  GE  1 

6 SKIP  1 OUTPUT  LINE 

7 START  NEW  LINE 

3 PRINT  I LINE  WITH  ID. FO, MSN. NAME(ID. MISSION)  AND  TIME .V  THUS 
FO  * ( **  ) FDC  PROCESSING  TIME=  ****. 

9  FOR  I = 1 TO  N. FDC,  DO 

10  PRINT  1 LINE  WITH  I ,NUM.MISSIONS( I ) ,STATE1 ( I ) AND 

11  QUEUE. SIZE(I)  THUS 

FDC  * **  MSNS  **  BTRY  **  QUEUE 

12  LOOP 

13  SKIP  1 OUTPUT  LINE 

14  ALWAYS 
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15  LET  STATUS ( ID. FO)  = BUSY 

16  LET  AMMUNITION. TYPE(ID. MISSION)  = OPICM 

17  LET  VOLLEYS. TO. FIRE( ID. MISSION)  = AMT. FFE . VOLLEYS 

18  FOR  I ■ 1 TO  N.FDC,  DO 

19  IF  NUM.MISSIONS(I)  * 0 

20  THEN  IF  STATE  1(1)  = 0 

21  GO  TO  CORRECT. BTRY 

22  ALWAYS  LOOP 

23  FOR  I = 1 TO  N.FDC,  DO 

24  IF  NUM.MISSIONS(I)  = 1 

25  THEN  IF  STATEl(I)  = 1 

26  GO  TO  CORRECT. 3TRY 

27  ALWAYS  LOOP 

23  FOR  1 = 1 TO  N..FDC,  DO 

29  IF  NUM. MISS  IONS ( I ) = 0 

30  THEN  IF  STATEl(I)  - 1 

31  THEN  IF  QUEUE .SI ZE ( I ) = 0 

32  GO  TO  CORRECT. BTRY 

33  ALWAYS  LOOP 

34  FOR  1-1  TO  N.FDC,  DO 

35  IF  NUM .MI  SSI  ON  S ( I ) = 0 

36  THEN  IF  STATEl(I)  = 1 

37  THEN  IF  QUEUE. SI ZE( I ) - 1 

38  GO  TO  CORRECT. 3TRY 

39  ALWAYS  LOOP 

40  FOR  I - 1 TO  N.FDC,  00 

41  IF  NUM.MISSIONS(I)  * 1 

42  THEN  IF  STATEl(I)  ■ 1 
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44  GO  TO  CORRECT. STRY 

45  ALWAYS  LOOP 

46  FOR  I - 1 TO  N.FDC,  00 

47  IF  NUM.MISSIONS(I)  = 2 
43  THEN  IS  STATE1 ( I ) = 0 

49  GO  TO  CORRECT. 3TRY 

50  ALWAYS  LOOP 

51  ' CORRECT. STRY ' 

52  CALL  ARTY .TIME(4)  YIELDING  TIME 

53  SCHEDULE  A CHECKING .GUNS .AVAI LAB  I L I TY ( I , I , ID. FO. ID .MISSIONS  ) IN 

54  TIME  UNITS 

55  LET  ID. STRY  = I 

56  LET  XX  =■  X„CUR4(  ID., MISSION)  - X.CURl(ID.BTRY) 

57  LET  YY  = Y.CUR4( ID. MISSION ) - Y. CUR1 ( ID. STRY ) 

53  LET  THETA(ID. MISSION)  = ARCTAN . F( YY ,XX) 

59  CALL  DIST(X.CUR1( ID.BTRY ) , Y.CURl ( ID . BTRY) , X. FUTURE . LOC 

60  (ID. MISSION), Y. FUTURE. LOC( ID. MISSION)  YIELDING  RG 

61  LET  GT. INITIAL. RG(ID. MISSION)  = RG 

62  LET  GT. FINAL. RG( ID. MISSION)  * RG 

63  IF  RG  GT  MAX.RANGE( ID.3TRY) 

64  LET  ERROR. CODE(ID. MISSION)  = 3 

65  SCHEDULE  AN  END. OF .MISSION ( I D. BTRY , ID. BTRY , I D. FO , I D ,M ISS I ON ) NOW 
56  RETURN  ELSE 

67  IF  N. HOLDING. MSNS  = 0 

63  FILE  ID. MISSION  IN  HOLDING. MSNS 

69  GO  TO  NEXT 

70  ELSE 
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71  FOR  EACH  MISSION  IN  HOLDING. MSNS  WITH  MISSION  NE 

72  ID. MISSION,  DO 

73  CALL  DIST(X.CUR4(ID. MISSION), Y.CUR4(ID. MISSION), 

74  X . CUR 4(MISSI0N) .Y.CUR4 (MISS ION) ) YIELDING  DIFF 

75  IF  DIFF  LT  FWD.OBS. MSN. TOLERANCE 

76  LET  MSN. TIME(IO. MISSION)  =■  TIME , V - MSN. TIME( ID. MI SSION  ) 

77  LET  ERROR, CODE(ID, MISSION)  = 2 

73  SCHEDULE  AN  END. OF. MI SSION(  ID  . BTRY,  ID,,  BTRY  , I D.  FO , I D.MI SS  ION  ) NOW 

79  RETURN  ELSE 

80  LOOP 

31  FILE  ID. MISSION  IN  HOLDING. MSNS 

32  'NEXT' 

33  LET  START.  PROCESS(I)  = TIME..  V 

34  LET  NUM.MISSIONS(I)  * NUM . M I SS I ONS ( I ) + 1 

35  RETURN  END 

Lines  1-4  defi ne  the  routi ne  and  the  local  variables. 

Lines  5-14  are  a print  option. 

Line  15  sets  the  FO's  status  to  busy. 

Line  16  sets  the  type  ammunition  to  be  fired  to  DPICM. 

Line  17  defines  the  number  of  volleys  to  be  fired  equal  to  the  input 
value  of  AMT. FFE. VOLLEYS. 

Lines  13-51  check  the  status  of  the  FDC,  firing  unit,  and  the  firing 
unit's  waiting  queue  to  determine  which  firing  unit  will  fire  the  mission. 

Line  52  determines  the  time  interval  between  the  start  of  FDC. PROCESSING 
and  the  time  that  the  firing  unit  receives  the  firing  data. 

Lines  53-54  schedule  a check  of  the  firing  units  status. 

Lines  56-58  update  THETA. 
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Lines  59-60  determine  the  range  between  the  firing  unit  and  the  esti- 
mated target  location. 

Lines  61-62  assign  the  value  of  the  range  to  appropriate  attributes 
of  MISSION. 

Lines  63-66  check  whether  the  target  is  beyond  the  range  of  the  firing 
unit  chosen  to  fire.  If  so,  the  attribute  ERROR. CODE  of  MISSION  is  given 
the  value  of  three  and  control  is  returned  to  the  system  timer. 

Lines  67-81  check  the  distance  between  the  centers  of  targets.  If 
that  distance  is  less  than  an  input  value,  the  attribute  ERROR. CODE  of 
MISSION  is  given  the  value  of  2 and  the  mission  is  cancelled.  Otherwise, 
the  current  mission  is  placed  in  the  HOLDING. MISSIONS  set  until  the  mission 
is  finished. 

Lines  83-84  update  values  of  attributes  of  BATTERY. 

Line  85  returns  control  to  the  system  timer. 

11.  Event  C.HECKING.3UNS..4VAILA3ILITY 
Descri ption 

Event  CHECKING. GUNS .AVAILABILITY  checks  whether  a firing  unit 
is  busy  when  a fire  mission  is  ready  to  be  fired.  If  the  firing 
unit  is  busy,  the  mission  is  placed  in  the  set,  HOWITZER. QUEUE. 
Otherwise  the  mission  is  fired  by  the  firing  unit.  Event  CHECKING 
.GUNS. AVAILABILITY  is  scheduled  by  event  FDC. PROCESSING  and 
schedules  event  GUNS. FIRING.  It  calls  routine  ARTY. TIME. 

Local  Variables 

ID.8TRY  - An  integer  variable  representing  the  firing  unit.. 

ID. FDC  - An  integer  variable  representing  the  fire  direction 
center. 

ID.FO  - An  integer  variable  representing  the  forward  observer. 

ID  MISSION  - An  integer  variable  representing  the  fire  mission 
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TIME  - A real  variable  equal  to  the  time  interval  between 
the  time  the  firing  unit  receives  the  firing  data  and  the  time 
the  firing  unit  fires. 

Coding  and  Brief  Explanation 

1 UPON  CHECKING. GUNS. AV A I LAB  I L I TY ( I D. BTRY , I D.FDC, ID. FO. ID. MISSION) 

2 DEFINE  ID. BTRY, ID. FDC, ID. FO  AND  ID. MISSION  AS  INTEGER  VARIABLES 

3 DEFINE  TIME  AS  A REAL  VARIABLE 

4 IF  DEBUG  GE  1 

5 SKIP  1 OUTPUT  LINE 

6 PRINT  2 LINES  WITH  ID. FO, MSN. NAME(ID. MISSION) .TIME. V. 

7 ID. BTRY  AND  STATE1 ( ID. BTRY ) THUS 

FO  * ( **  ) CHECKING  GUNS  TIME  = #*** 

BTRY  ♦ GUNS  * 

8 SKIP  1 OUTPUT  LINE 
3 ALWAYS 

10  IF  NUM. MISS  IONS ( ID. FDC)  NE  0 

11  LET  NUM. MISS  IONS (I D.FDC)  = NUM .MISSIONS^ ID. FDC)  - 1 

12  ALWAYS 

13  LET  BTRY( ID. MISSION)  = ID. BTRY 

14  LET  FIRE. DIR. CENTER ( ID. MISSION)  = ID. FDC 

15  IF  STATE1 ( ID. BTRY ) = 0 

16  LET  STATE1( ID. BTRY ) * 1 

17  LET  ST. FIRING(  ID.STRY ) =■  TIME.V 

18  LET  NUM. AD J. ROUNDS { ID. MI  SSI  ON ) - 1 
14  CALL  ATRY.TIME(S)  YIELDING  TIME 

20  SCHEDULE  A GUNS. FIRING! ID. BTRY .ID . FDC, ID. FO. ID. MISSION ) IN 

21  TIME  UNITS 
jo 


RETURN  ELSE 


23  LET  LABEL(ID. MISSION)  = 1 

24  IF  DEBUG  GE  1 

25  START  NEW  LINE 

26  PRINT  1 LINE  WITH  ID.  FO, MSN , NAMEdD. MISSION ) , 

27  MSN. NAME(ID. MISSION)  \ND  ID.BTRY  THUS 

FO  * ( **  ) WAITING  IN  QUEUE  MSN  **  FOR  BTRY  ** 

23  SKIP  1 OUTPUT  LINE 

29  ALWAYS 

30  LET  QUEUE. TIME(ID. MISSION)  = TIME.V 

31  LET  MSN. TIME(ID. MISSION)  = 0 

32  LET  QUEUE. SIZE(ID. BTRY)  = QUEUE. SIIE( ID. BTRY)  + 1 

33  FILE  ID. MISSION  IN  HOWITZER. QUEUE ( I D 3TRY ) 

34  RETURN  END 

Lines  1-3  define  the  event  and  the  local  variables. 

Lines  4-9  are  a print  option. 

Lines  10-12  reduce  the  number  of  missions  being  processed  by  the  FDC 
by  1 i f the  number  is  nonzero. 

Lines  13-14  assign  appropriate  values  to  attributes  of  the  mission. 
Lines  15-22  check  whether  the  firing  unit  is  idle.  If  so,  the  firing 
of  the  guns  is  scheduled  and  appropriate  attributes  are  updated. 

Line  23  sets  value  of  attribute  LABEL  to  one,  indicating  that  the 
mission  waited  in  a queue. 

Lines  24-29  area  print  option. 

Lines  30-33  place  the  mission  in  a waiting  queue  (HOWITZER, QUEUEl  and 
assign  appropriate  values  to  attributes  of  MISSION  and  3ATTERY. 

Line  34  returns  control  to  the  system  timer. 
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ESTIMATE. OF. TIME  AND  PR  I VALUE  AS  REAL 


65 


12.  Event  GUNS. FIRING 
Descri ption 

Event  GUNS. FIRING  simulates  the  process  of  firing  a single 
round  or  volley.  A time  of  flight  is  calculated  based  on  the 
range  to  the  target  from  the  firing  unit  and  the  ammunition  type. 
The  FO  is  alerted  by  radio  5 seconds  prior  to  the  round/volley 
impact.  Event  GUNS. FIRING  is  schedule  by  event  CHECKING. GUNS . 
AVAILABILITY,  event  ARTY. IMPACT,  and  event  END .OF .MISSION.  It 
schedules  event  ARTY. IMPACT,  event  0PEN.RADI0.NET  and  event  BUSY. 
RA0I0.NET.  It  calls  routine  01  ST . 

Local  Variables 

ID.3TRY  - An  integer  variable  representing  the  firing  unit. 
ID.FDC  - An  integer  variable  representing  the  FDC. 

ID.FO  - An  integer  variable  representing  the  c0. 

ID. MISSION  - An  integer  variable  representing  the  mission 
being  fired. 

WPN.TYPE  - An  integer  variable  representing  the  weapon  system 
of  the  firing  unit. 

TYPE. AMMO  - An  integer  variable  representing  the  type  of 
ammunition  fired. 

TOF  - A real  variable  equal  to  the  time  of  flight. 

RG  - A real  variable  equal  to  the  range  in  meters  between  the 
firing  unit  and  the  target. 

Coding  and  Brief  Explanation 

1 UPON  GUNS. FIRING(ID.3TRY, ID. FDC, ID.FO, ID. MISSION) 

2 DEFINE  ID. 3TRY, ID. FDC, ID.FO  AND  ID. MISSION, WPN.TYPE  AND 

3 TYPE. AMMO  AS  INTEGER  VARIABLES 

4 DEFINE  TOF  AND  RG  AS  REAL  VARIABLES 
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CALL  NEW. MISSIONdO.FO, NAME. PRIORITY, PRI. VALUE)  YIELDING  M 
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5 IF  DEBUG  GE  1 

6 SKIP  1 OUTPUT  LINE 

7 START  NEW  LINE 

3 PRINT  2 LINES  WITH  ID. FO , MSN. . NAME ( ID .MISSION) , TIME ,V , 

9 ID.BTRY,  AND  WHICH. VOLLEY(ID.BTRY)  THUS 

FO  * ( **  ) FIRING  GUNS  TIME  = ****. 

BTRY  * VOLLEY  ** 

10  SKIP  1 OUTPUT  LINE 

11  ALWAYS 

12  IF  NOW. FIRING(ID. MISSION)  = ADJ. ROUND 

13  GO  TO  NEXT 

14  ELSE 

15  LET  WHICH. VOLLEY (ID. BTRY)  = WHICH ,VOLLEY( ID.BTRY)  + 1 

16  CALL  DIST(  X.CURI  ( ID,  BTRY)  ,Y, CUR  1(10. BTRY),X.  FUTURE..  LOC 

17  (ID. MISSION), Y. FUTURE. LOC(ID. MISSION))  YIELDING  RG 
13  LET  GT. FINAL. RG(ID. MISSION)  = RG 

19  'NEXT' 

20  LET  WPN . TYPE  = CALI3ER( ID.BTRY) 

21  LET  TYPE. AMMO  = AMMUNITION . TYPE ( ID. MISS  ION) 

22  LET  TOF  = GT . FINAL. RG( ID, MISS  ION) /TRAVEL. TIME. ARRAY ( WPN .TYPE 

TYPE. AMMO) 

23  SCHEDULE  AN  ARTY . IMPACT( ID. BTRY , ID, FDC , ID. FO , I D .MISS ION ) IN 

TOF  UNITS 

24  IF  TOF  LT  10  RETURN  ELSE 

25  SCHEDULE  A BUSY. RADIO. NET(MY. RAOIO(  IO..FO) ) IN  TOF-IO  UNITS 

26  SCHEDULE  AN  OPEN .RADIO. NET(MY . RADIO( I D . FO) ) IN  TOF-5  UNITS 

27  RETURN  END 
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Lines  1-4  define  the  event  and  the  local  variables. 

Lines  5-11  are  a print  option 

Lines  12-15  check  whether  the  battery  is  in  the  adjustment  phase. 

If  so,  control  transfers  to  line  19.  Otherwise,  the  volley  count  is 
increased  by  one. 

Lines  16-13  calculate  the  range  to  the  target  and  assign  it  to  an 
attri bute  of  MISSION . 

Line  19  is  a continuation  lable. 

Lines  20-23  determine  the  time  of  flight  and  schedule  the  round/ 
volley  impact. 

Lines  24-26  check  whether  the  time  of  flight  of  the  projectile  is 
less  than  10  seconds.  Normal  artillery  observed  fire  procedure  is  to 
send  the  observer  a message  alerting  him  that  a round  is  about  to  land. 
If  the  time  of  flight  is  less  than  10  seconds,  control  is  returned  to 
the  system  timer,  with  no  message  being  sent  to  the  F0..  Otherwise,  an 
alerting  message  is  sent  to  the  FO.  Since  a mission  in  progress  has 
priority  over  other  traffic  in  a fire  control  net,  the  message  would  be 
sent  over  another  transmission  if  the  frequency  was  busy  at  the  time  of 
the  transmission  of  the  alert  message. 

Line  27  returns  control  to  the  system  timer, 

13.  Event  ARTY. IMPACT 
Oescri  pti  on 

Event  ARTY. IMPACT  simulates  the  actions  that  occur  when  a 
round/volley  impacts.  The  event  determines  the  point  at  which 
the  mission  enters  the  fire  for  effect  phase:  Once  in  the  fire 
for  effect  phase,  the  firing  is  continued  until  all  required 
rounds  are  fired.  After  each  volley  in  the  FFE  phase,  damage  is 
assessed.  Event  ARTY. IMPACT  is  scheduled  by  e-^nt  GUNS. FIRING, 
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event  END. OF. MISSION , event  OPEN.RADIO.NET,  and  event  BUSY. 
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R^DIO.NET.  It  calls  routines  ERROR, DIST, ARTY. TIME, NEW. LOCATION 
and  ASSESSMENT. 

Local  Variables 

I - An  integer  variable  used  as  a do  loop  counter. 

ID.BTRY  - An  integer  variable  representing  the  firing  unit. 

ID.FDC  - An  integer  variable  representing  the  FDC. 

ID.FO  - An  integer  variable  representing  the  FO. 

ID. MISSION  - An  integer  variable  representing  the  mission 
being  fired. 

ANS  - A real  variable  equal  to  the  range  in  meters  from  the 
FO  to  the  target. 

RG  - A real  variable  equal  to  the  range  in  meters  from  the 
firing  unit  to  the  target. 

TIME. I and  TIME. 4 - Real  variables  equal  to  the  time  required 
for  the  FO  to  make  a subsequent  adjustment. 

TIME. 2 and  TIME. 5 - Real  variables  equal  to  the  time  requi red 
for  the  communication  between  the  FO  and  the  FDC. 

TIME. 3 and  TIME. 6 - Real  variables  equal  to  the  time  required 
by  the  firing  unit  to  fire  an  adjusting  round. 

TIME. 7 - A real  variable  equal  to  the  time  duration  between 
the  impact  of  the  last  volley  and  the  FO 1 5 termination  of  the 
mission. 

XX  - A real  variable  representing  the  difference  between  the  X 
coordinates  of  the  firing  unit  and  the  target. 

YY  - A real  variable  representing  the  difference  between  the  Y 
coordinates  of  the  firing  unit  and  the  target. 
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WITHIN. TOLERANCE  - A real  variable  equal  to  the  radial  error 
between  the  adjusting  round’s  impact  point  and  the  location  of 
the  target  (or  999  if  no  vehicles  in  the  cluster  are  alive). 

TIME  - A real  variable  equal  to  the  total  time  duration  from 
a volley's  impact  to  the  next  volley  being  fired. 

ESTIMATE. OF .TIME  - A real  variable  equal  to  the  estimated 
time  between  the  last  round  in  adjustment  and  the  impact  of  the 
first  volley  in  FFE. 

Codi  ng  and  3rief  Explanation 

1 UPON  ARTY . IMPACT ( ID. BTRY , ID. FOC, I D. FO , I D. MISS  ION) 

2 DEFINE  I , ID. BTRY , I D. FDC, I D. FO  AND  ID. MISSION  AS 

3 INTEGER  VARIABLES 

4 DEFINE  ANS, RG, TIME. 1, TIME. 2, TIME. 3, TIME. 4, TIME. 5, TIME. 6, XX, YY, 

WITHIN. TOLERANCE, 

5 TIME, ESTIMATE. OF. TIME  AND  TIME. 7 AS  REAL  VARIABLES 

6 CALL  POSITION. UPDATE(ID. MISSION, 0) 

7 IF  MOW. FIRING(ID. MISSION)  GE  VOLLEY 
3 IF  DEBUG  GE  1 

9  SKIP  1 OUTPUT  LINE 

10  PRINT  2 LINES  WITH  ID. FO, MSN, NAME( ID. MISSION ) .TIME. V, 

11  ID. BTRY  AND  VOLLEYS .TO. FIRE( ID. MISSION)  - 1 THUS 

FO  * ( ) ARTY  IMPACT  TIME  = ♦***. 

12  SKIP  1 OUTPUT  LINE 

13  ALWAYS 

14  GO  TO  FFE 

15  ELSE 

15  IF  NUM. ADJ. ROUNDS ( ID. MISSION)  = l 

17  LET  DEL. 1 ( ID. MISSION)  = TIME.V  - MSN.TIME( ID  MISSION) 


83 


13  ALWAYS 

19  IF  NUM.ADJ.ROUNDS(ID. MISSION)  = 2 

20  LET  DEL. 2(ID. MISSION)  = TIME.V  - DEL. 2( ID. MISSION) 

21  ALWAYS 

22  SCHEDULE  AN  OPEN. RADIO. NET(MY .RADIO( ID. FO) ) IN  5 UNITS 

23  SCHEDULE  A BUS Y. RADIO. NET(MY. RADIO ( ID. FO) ) NOW 

24  CALL  ERROR(ID.BTRY,ID.FDC, ID. FO, ID. MISSION)  YIELDING  WITHIN. 

TOLERANCE 

25  IF  ERROR. CODE( ID. MISSION)  = 5 

26  RETURN  ELSE 

27  IF  NUM.ADJ.ROUNDS( ID. MISSION)  = 1 

28  LET  RD.1.ERR0R(ID. MISSION)  = WITHIN. TOLERANCE 

29  JUMP  AHEAD 

30  ELSE 

31  LET  RD. 2. ERROR( ID. MISSION)  = WITHIN. TOLERANCE 

32  HERE 

33  IF  DEBUG  GE  1 

34  SKIP  1 OUTPUT  LINE 

35  START  NEW  LINE 

36  PRINT  2 LINES  WITH  ID. FO, MSN .NAME( ID. MISSION ) .TIME. V , 

37  ID. BTRY,NUM.ADJ.ROUNDS(ID. MISSION)  AND 

38  WITHIN. TOLERANCE  THUS 

FO  * ( **  ) ARTY  IMPACT  TIME  = ****. 

39  SKIP  1 OUTPUT  LINE 

40  ALWAYS 

41  LET  XX  = X.CUR4(ID. MISSION)  - X.CURl(ID.BTRY) 

42  LET  YY  = Y .CUR4(I D. MISSION ) - Y . CUR1 (ID. BTRY ) 

43  LET  THETA(ID. MISSION)  = ARCTAN. F( YY.XX) 
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44  CALL  D I ST( X.CUR1 (ID.BTRY ) , Y . CUR  1 ( ID.BTRY ) , X. FUTURE. LOC 

45  (ID. MISSION), Y. FUTURE. LOC ( ID. MISSION))  YIELDING  RG 

46  LET  GT. FINAL. RG( ID. MISSION)  = RG 


47  LET  NL‘M.  DPI  CM.  LEFT(  ID.BTRY)  = NUM.  DP  I CM.  L EFT  ( ID.BTRY ) - I 

48  IF  WITHIN. TOLERANCE  LE  MISS. TOLERANCE 

49  IF  DEBUG  GE  1 

50  SKIP  I OUTPUT  LINE 

51  PRINT  1 LINE  WITH  ID.  FO  ,MSN ,.NAME(  I D.MISSI ON ) AND  TIME.V  THUS 

FO  * ( **  ) ENTERING  FFE  TIME  = **** . 

52  SKIP  1 OUTPUT  LINE 

53  ALWAYS 

54  LET  NOW, FIRING(ID. MISSION)  = VOLLEY 

55  LET  WHICH. VOLLEY ( I D. BTRY ) = 1 

56  FOR  I 3 1 TO  VOLLEYS. TO. FIRE(ID. MISSION),  DO 

57  CALL  ARTY.TIME(d)  YIELDING  TIME.l 

58  CALL  ARTY . TIME ( 3 ) YIELDING  TIME. 2 

59  CALL  ARTY.TIME( 7)  YIELDING  TIME. 3 

60  LET  TIME  = TIME.l  + TIME. 2 + TIME. 3 

61  SCHEDULE  A GUNS . FIRING( I D. BTRY , I D. FDC , ID.FO, I D. MISSION ) IN 

62  TIME  + (1-1)  * 60/RATE.0F.FIRE( ID.BTRY)  UNITS 

63  LOOP 

64  ' NEXT2' 

65  LET  ESTIMATE. OF. TIME  » 78 

66  CALL  NEW. LOCATION (ID. MISSION, ESTIMATE, OF  TIME.l) 

67  RETURN 
63  ELSE 

69  IF  NUM. AD J .ROUNDS ( I D.MI SS  TON)  » 3 

70  LET  ERROR .CODE( ID. MI  SSI ON)  = 7 
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71  SCHEDULE  AN  END. OF .MISS ION( ID.BTRY , ID. FDC, I D. FO, I D. MISSION)  NOW 

72  RETURN 


73  ELSE 

74  LET  ESIMATE.OF.TIME  = 73 

75  CALL  NEW. LOCATION( ID. MISSION, ESTIMATE. OF. TIME, 1) 

76  LET  DEL. 2( ID. MISSION)  = TIME.V 

77  LET  NUM.ADJ. ROUNDS( ID. MISSION)  - NUM. ADJ. ROUNDS! ID. MI SSION)  + 1 
73  CALL  ARTY.TIME(6)  YIELDING  TIME. 4 

79  CALL  ARTY. TIME! 3)  YIELDING  TIME. 5 

30  CALL  ARTY. TIME!  7)  YIELDING  TIME..6 

31  LET  TIME  = TIME. 4 + TIME. 5 + TIME., 6 

32  SCHEDULE  A GUNS . FIRING! I D.3TRY , I D. FDC , I D. FO , I D.MISS ION ) IN 

33  TIME  UNITS 

34  RETURN 

35  ' FFE ' 

36  CALL  ASSESSMENT!^. BTRY,  ID.  FDC,  ID.  FO,  ID.  MISSION) 

37  LET  VOLLEYS. TO. FIRE( ID. MISSION)  = VOLLEYS . TO. FIRE ( I D .MISS ION ) - 1 
33  IF  VOLLEYS. TO. FIRE( ID. MISSION)  = 0 

39  CALL  ARTY.TIME(S)  YIELDING  TIME. 7 

90  SCHEDULE  AN  END. OF. MISSION! ID.BTRY .ID. FDC , ID. FO, I D.MISS ION)  IN 

TIME. 7 UNITS 

91  LET  NOW. FIRING(ID. MISSION)  = 0 

92  CALL  DIST(X.CUR4( ID.MISSION) , Y.CUR4( ID.MISS ION) ,X. CURRENT! POINTING. 

TO(ID.FO) ) , 

93  Y. CURRENT ( POINTING. TO ( ID. FO) ) ) YIELDING  ANS 

94  LET  LAST. FO.RG( ID. MISSION)  = ANS 

95  CALL  DIST( X.CUR4( ID.MISSION) ,Y.CUR4( ID.MISSION) .X.CUR1 ( ID.BTRY) , 

96  Y .CUR  1 ( ID.BTRY ) ) YIELDING  RG 
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97  LET  GT. FINAL. RG(ID. MISSION)  = RG 

98  RETURN  ELSE 

99  LET  ESTIMATE, OF. TIME  = 60/RATE. OF. FIRE(ID.BTRY) 

100  CALL  NEW. LOCATION( ID. MISSION, ESTIMATE. OF. TIME, 2) 

101  RETURN  END 

Lines  1-5  define  the  event  and  the  local  variables. 

Line  6 updates  the  position  of  the  cluster  centroid. 

Lines  7-15  check  if  the  mission  is  in  the  FFE  phase.  If  not,  control 
transfers  to  line  S5  after  checking  a print  option. 

Lines  16-21  update  attributes  of  MISSION  with  the  appropriate  elapsed 
time. 

Lines  22-23  schedule  the  events  that  simulate  a radio  transmission. 

Lines  24-26  determine  the  radial  error  of  the  adjusting  round.  If 
ERROR. CODE  equals  5 (no  live  vehicles  left  in  the  cluster),  control  is 
returned  to  the  system  timer. 

Lines  27-32  update  attri bute  of  MISSION  with  the  radial  miss  distance. 

Lines  33-40  are  a print  option. 

Lines  41-43  update  the  value  of  THETA. 

Lines  44-47  calculate  range  from  the  firing  unit  to  the  target  and 
update  the  ammunition  count. 

Lines  48-63  check  if  the  radial  error  is  less  than  a user  input  value. 
If  so,  a print  option  is  checked  and  the  mission  goes  into  the  FFE  phase. 
Each  volley  to  be  fired  is  scheduled.  The  future  location  of  the  target 
is  estimated  and  control  is  returned  to  the  system  timer. 

Lines  69-73  check  whether  the  adjusting  round  count  is  three.  If  so, 
the  mission  is  terminated  and  control  is  returned  to  the  system  timer. 

Lines  74-84  update  attributes  of  the  MISSION,  schedule  the  firing  of 
the  next  adjusting  round,  and  return  control  to  the  system  timer. 
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Line  35  is  a continuation  line. 

Line  36  calls  the  damage  assessment  routine. 

Line  37  updates  the  count  of  the  volleys  left  to  fire. 

Lines  33-98  check  if  the  volley  is  the  last  required.  If  so,  the 
mission  is  terminated,  ranges  to  the  target  from  the  FO  and  the  firing 
unit  are  updated,  and  control  is  returned  to  the  system  timer. 

Lines  99-100  update  the  future  estimated  location  of  the  target. 

Line  101  returns  control  to  the  system  timer. 

14.  Event  END. OF. MISS  ION 
Oescri ption 

Event  END. OF. MISSION  terminates  a fire  mission,  updates 
attributes  of  entities,  and  checks  if  any  missions  are  waiting 
for  the  firing  unit  just  released.  If  so,  the  event  initiates 
the  firing  of  the  waiting  mission.  Otherwise,  the.  firing  unit 
reverts  to  idle  status.  Event  END. OF. MISSION  is  scheduled  by 
routine  ERROR,  event  FDC. PROCESS ING,  and  event  ARTY. IMPACT. 

It  schedules  event  FO .NOT. BUSY,  event  0PEN.RA0I0.NET,  and  event 
GUNS. FIRING.  It  calls  routines  ARTY, TIME  and  NEW. LOCATION. 

Local  Variables 

ID.3TRY  - An  integer  variable  representing  the  firing  unit, 

ID, FDC  - An  integer  variable  representing  the  FDC. 

ID. MISSION  - An  integer  variable  representing  the  mission 
being  fired, 

ESTIMATE. OF. TIME  - A real  variable  equal  to  the  estimate 
of  time  that  themission  was  delayed 

TIME  - A real  variable  equal  to  the  time  duration  from  the 
time  the  FDC  sent  the  mission  to  the  firing  unit  until  the  time 
the  rounds  were  fired. 
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Coding  and  Brief  Explanation 

1 UPON  END. OF .MISS ION ( I D. BTRY , I D. FDC, ID. FO, I D.MISS ION ) 

2 DEFINE  ID. BTRY,  ID. FDC,  ID.FO  AND  ID. MISSION  AS  INTEGER  VARIABLES 

3 DEFINE  ESTIMATE. OF. TIME  AND  TIME  AS  REAL  VARIABLES 

4 IF  DEBUG  GE  1 

5 SKIP  1 OUTPUT  LINE 

6 START  NEW  LINE 

7 PRINT  2 LINES  WITH  ID. FO, MSN. NAME(ID. MISSION) .TIME. V AND 

8 ID.3TRY  THUS 

FO  * ( *♦  ) END  OF  MISSION  TIME  = ***♦. 

3TRY  * 

9 SKIP  1 OUTPUT  LINE 

10  ALWAYS 

11  LET  WHICH. VOLLEY(ID. BTRY)  = 0 

12  LET  AMT.MSNS. FIRED( ID. FO)  = AMT.MSNS . FIRED( ID.FO)  + 1 


ID. BTRY, 00 


25  GO  TO  OUT 

26  LOOP 

27  'OUT' 

28  IF  DEBUG  GE  I 

29  SKIP  1 OUTPUT  LINE 

30  START  NEW  LINE 

31  PRINT  2 LINES  WITH  FIST(MISSION) .MSN .NAME(MISSION) , 

32  TIME. V AND  ID.BTRY  THUS 

FO  * ( **  ) LEAVING  QUEUE  TIME  = ****. 

BTRY  * 

33  SKIP  1 OUTPUT  LINE 

34  ALWAYS 

35  LET  QUEUE , TIME (MISS ION ) = TIME.V  - QUEUE. TIME(MISSION) 

36  LET  MSN.TIME(MISSION)  = TIME.V 

37  LET  QUEUE. SIZE(ID. BTRY)  = QUEUE. SIZE( ID.BTRY)  - 1 

38  CALL  ARTY ,TIME(5)  YIELDING  TIME 

39  SCHEDULE  A GUNS . FIRING( ID.3TRY, ID. FDC, FI  ST (MI  SSI ON ) .MISSION) 

40  IN  TIME  UNITS 

41  LET  ESTIMATE. OF. TIME  = QUEUE. TIME( ID. MISSION) 

42  CALL  NEW. L0CATI0N(MISSI0N, ESTIMATE. OF, TIME, 2) 

43  LET  ST. FIRING( ID.BTRY)  = TIME.V 

44  LET  NUM.ADJ. ROUNDS (MISS ION)  = 1 

45  IF  FIST(MISSION)  NE  ID.FO 

46  THEN 

47  IF  AMT.ACTIVE.MSNS( ID.FO)  = 0 

48  SCHEDULE  A FO.NOT. BUSY ( I D. FO ) NOW 

49  ALWAYS 

50  RETURN 


51  ELSE 


52  LET  STATEl(ID.BTRY)  = 0 

53  LET  ST. FIRING( I D.BTRY)  = 0 

54  RETURN  END 

Lines  1-3  define  the  event  and  the  local  variables. 

Lines  4-10  are  a print  option. 

Lines  11-13  update  attributes  of  the  firing  unit  and  FO.  The  radio 
net  becomes  idle. 

Line  14  removes  the  completed  mission  from  the  set  of  current  missions. 

Lines  15-17  check  if  the  old  mission  had  waited  in  a queue.  If  so, 
it  was  taken  out  of  HOWITZER. QUEUE. 

Line  18  calculates  the  elapsed  time  of  the  mission. 

Line  19  places  the  completed  mission  in  the  completed  mission  set. 

Lines  20-22  update  attributes  of  the  firing  unit  and  the  FO. 

Lines  23-27  check  if  a mission  is  waiting  to  be  fired  by  the  firing 
unit  just  released.  If  so,  a mission  is  selected  from  the  queue  of  wait- 
ing missions. 

Lines  28-34  are  a print  option. 

Lines  35-37  update  attributes  of  the  completed  mission  and  the  released 
fi  ri ng  uni  t. 

Lines  38-40  schedule  the  firing  of  the  first  adjusting  round  in  the 
new  mission. 

Lines  41-42  update  the  estimate  of  the  target's  future  location. 

Lines  43-44  update  attributes  of  the  firing  unit  and  the  new  mission. 

Lines  45-51  check  if  the  FO  of  the  new  mission  is  different  from  the 
old  mission's  FO.  If  so,  the  old  mission's  FO  becomes  idle  if  he  has  no 
more  missions  to  fire.  Control  is  returned  to  the  system  timer. 
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Lines  52-53  update  the  attributes  of  the  firing  unit  if  there  are 
no  missions  to  be  fired. 

Line  54  returns  control  to  the  system  timer, 

15.  Routine  DOING. CLUSTERS 
Descri ption 

Routine  DOING. CLUSTERS  simulates  the  clustering  operation  of 
the  FO.  Detected  vehicles  are  grouped  and  given  priorities.  The 
cluster  with  the  highest  nonzero  priority  is  used  as  the  target 
for  a new  mission.  Routine  DOING. CLUSTERS  is  called  by  event 
UPDATE. CLUSTERS.  It  calls  routines  DIST  and  LOC. 

Local  Variables 

I,J.L  - Integer  variables  used  as  do  loop  counters. 

ID.FO  - An  integer  variable  representing  the  FO. 

TOTAL. CLUSTERS  - An  integer  variable  equal  to  the  total 
number  of  clusters  that  are  formed. 

SIZE  - An  integer  variable  equal  to  the  number  of  vehicles 
that  the  FO  has  detected. 

TANK  - An  integer  variable  representing  a detected  vehicle. 

NAME. PRIORITY  - An  integer  variable  representing  the 
cluster  with  the  highest  priority. 

ANGLE  - A real  variable  equal  to  the  direction  of  the 
cluster  from  the  FO's  position. 

DIR  - A real  variable  equal  to  the  direction  of  movement  of 
the  cluster  prior  to  update  with  a new  vehicle,  from  the  FO's 
posi tion. 

N - A real  variable  equal  to  the  number  of  vehicles  in  the 
cluster  prior  to  its  update. 
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PRI. VALUE  - A real  variable  equal  to  the  priority  of  the 
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most  important  cluster. 

X - A real  variable  equal  to  the  X component  of  the  velocity 
vector  of  the  cluster  being  updated. 

Y - A real  variable  equal  to  the  Y component  of  the  velocity 
vector  of  the  cluster  being  updated. 

B - A real  variable  equal  to  the  range  in  meters  from  the 
F0  to  the  cluster  centroid. 

S - A real  variable  equal  to  the  speed  in  meters  per  second 
of  the  cluster  prior  to  update. 

Coding  and  Brief  Explanation 

ROUTINE  DOING. CLUSTERS  (ID.FO)  YIELDING  NAME. PRIOR ITY , PRI . VALUE  AND 
TOTAL. CLUSTERS 

DEFINE  I , J AND  L AS  INTEGER  VARIABLES 

DEFINE  ID.FO,  TANK  AND  NAME. PRIORITY  AS  INTEGER  VARIABLES 
DEFINE  TOTAL. CLUSTERS  AS  AN  INTEGER  VARIABLE 
DEFINE  SIZE  AS  AN  INTEGER  VARIABLE 

DEFINE  ANGLE, DIR, N, PRI. VALUE, X,B,X  AND  Y AS  REAL  VARIABLES 

FOR  I = 1 TO  30,  DO 

FOR  J = 1 TO  3,  DO 

LET  CLUSTERS(I,J, ID.FO)  = 0 

LOOP 

REPEAT 

LET  LIST(*1  = TARGET ( NAME ( POINTING. TO ( ID.FO) ) ,1 ) 

IF  LIST(l)  =0  GO  TO  OUT. OF. LOOP  ELSE 
LET  SIZE  = DIM.F(LIST(*)) 

FOR  L = 1 TO  SIZE,  DO 
FOR  TANK  = LIST(L) 


r*i 
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IF  ALIVE.DEAD(tANK)  = 1 

GO  TO  NEXT 

ELSE 

CALL  LOC(TANK) 

LET  C. NUMBER. ARRA Y ( NAME (TANK) -B .NUM. ALIVE, ID, F0,STATE4( ID . FO ) ) = 0 
IF  TOTAL. CLUSTERS  = 0 

LET  C. NUMBER. ARRAY ( NAME ( TANK ) -B . NUM. ALIVE, ID. FO , STATE4 ( I D. FO ) ) = 1 
LET  CLUSTERS (1 ,1 , ID- FO)  = 1 
LET  TOTAL. CLUSTERS  = 1 
LET  CLUSTERS( 1 ,3, ID. FO)  = X.CURRENT(TANK) 

LET  CLUSTERS ( 1 .4 , ID. FO)  = Y.CURRENT(TANK) 

LET  CLUSTERS( 1 ,5, ID. FO)  = SPD( TANK) 

LET  CLUSTERS ( 1 ,6 , I D. FO)  = DIR.OF.MVMT(TANK) 

LET  CLUSTERS ( 1 , 7 , ID. FO)  = X. CURRENT (TANK) 

LET  CLUSTERS ( 1 , 3, I D. FO ) = Y .CURRENT(TANK) 

GO  TO  NEXT 
ELSE 

FOR  1=1  TO  TOTAL. CLUSTERS,  DO 

IF  ABS . F(X. CURRENT (TANK) -CLUSTERS ( I ,7, ID. FO) ) LT  30X. 
TOLERANCE 
THEN 

IF  ABS .F(Y. CURRENT (TAN  K) -CLUSTERS ( I ,S,ID. FO ) ) LT  BOX. 
TOLERANCE 

LET  CLUSTERS (1,1, 1 D.FO)  = CLUS7ERS( 1 , 1 , 1 0. FO)  + 1 
LET  CLUSTERS ( I ,3, ID. FO)  = ( ( CLUSTERS (1,3, ID. F0)*( CLUSTERS 
( I , 1 , ID. F0)-1 ) ) 

+ X. CURRENT ( TANK )) /CLUSTERS ( I , 1 , ID. FO) 

LET  CLUSTERS ( I ,4, ID. FO)  = ( ( CLUSTERS (1,4, ID. F0)*( CLUSTERS 
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(1,1,10. FO ) - 1 ) 

43  + Y. CURRENT (TANK) ) /CLUSTERS ( I , 1 , I D. FO) 

44  LET  C. NUMBER o ARRAY (NAME (TAN K)-B.NUM .ALIVE, ID. F0,STATE4( 13. FO) ) = 1 

45  LET  N = CLUSTERS ( I ,1,10. FO ) - 1 

46  LET  S = CLUSTERS( I , 5, ID. FO) 

47  LET  DIR  = CLUSTERS( I ,6 , I D. FO ) 

43  LET  X = ((N*S*C0S.F(DIR))+(SPD(TANK)*C0S.F(DIR.0F.MVMT(TANK))))/ 
(N+l) 

49  LET  Y =( ( N*S*S IN . F( DIR) )+(SPD(TANK)*S IN . F( DIR.OF , MVMT ( TANK) ) ) )/ 

(N+l) 

50  LET  CLUSTERS ( I ,5,10. FO)  = SQRT.F(X+*2  + Y**2) 

51  IF  X = 0 

52  THEN  IF  Y = 0 

53  LET  ANGLE  = 0 

54  GO  TO  ANGLE 

55  ELSE 

56  LET  ANGLE  = ARCTAN. F( Y,X) 

57  'ANGLE' 

53  LET  CLUSTERS ( I ,6 , ID. FO ) = ANGLE 

59  GO  TO  NEXT 

60  ELSE 

61  'FIRST' 

62  ' L00P1 ' 

63  LOOP 

64  IF  C. NUMBER. ARRAY ( NAME ( TANK) -B.NUM. ALIVE, ID. F0,STATE4( ID.FO)  = 0 

65  LET  TOTAL. CLUSTERS  = TOTAL. CLUSTERS  + 1 

66  LET  C. NUMBER. ARRAY (NAME (TANK) -3. NUM. ALIVE, I D.F0,STATE4( ID.FO)) 

= TOTAL. CLUSTERS 
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LET  CLUSTERS (TOTAL. CLUSTERS, 1, ID. FO)  = 1 
LET  CLUSTERS (TOTAL. CLUSTERS, 3, ID. FO)  = X.CURRENT(TANK) 
LET  CLUSTERS (TOTAL. CLUSTERS, 4, ID. FO)  = Y.CURRENT(TANK) 
LET  CLUSTERS (TOTAL. CLUSTERS, 5.ID.F0)  = SPD(TANK) 

LET  CLUSTERS (TOTAL. CLUSTERS, 6, ID. FO)  = DIR.OF.MVMT(TANK) 
LET  CLUSTERS ( TOTAL . CLUSTERS , 7 , 1 0 . FO ) = X.CURRENT(TANK) 

LET  CLUSTERS (TOTAL. CLUSTERS, 8, ID. FO)  = Y.CURRENT(TANK) 

ALWAYS 

'NEXT' 

REPEAT 

FOR  I = 1 TOTAL. CLUSTERS,  DO 
IF  CLUSTERS ( I ,1 ,ID. FO)  GE  3 

CALL  DIST(CLUSTERS(1 ,3, ID.FO)  ,CL'JSTERS( I,4,ID.F0)  ,X„ CURRENT 
( POINTING. T0( ID. FO)), 

Y.CURRENT( POINTING. T0( ID. FO) ) ) YIELDING  B 
IF  B LT  FO. MIN. RANGE  OR  B GT  FO.MAX. RANGE  GO  TO  LOOP  ALWAYS 
LET  CLUSTERS(If2, ID.FO)  = CLUSTERS(I,1, ID.FO)  * 1000/B 
THEN 

IF  CLUSTERS (I ,2,ID. FO)  GT  PRI. VALUE 
LET  NAME. PRIORITY 

LET  PRI. VALUE  = CLUSTERS( I ,2, ID. FO) 

ALWAYS 

'LOOP' 

LOOP 

IF  DEBUG  GE  5 

SKIP  1 OUTPUT  LINE 

PRINT  2 LINES  WITH  ID.FO  THUS 

ARRAY  FOR  FO#  * 
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NUM  * PR  I X V SPD  DIR  XFIR  YFIR 

93  FOR  I * I TO  20.  DO 

94  PRINT  1 LINE  WITH  I.  CLUSTERS ( 1 , 1 , ID. FO) .CLUSTERS ( 1 ,2, ID, FO) , 

95  CLUSTERS ( I ,3, ID. FO) , CLUSTERS( I .4 . ID. FO) ,CLUSTERS( I .5 , ID. FO ) . 

96  CLUSTERS ( I ,6, ID. FO) , CLUSTERS! I .7, ID. FO) . AND  CLUSTERS 

(I.3.ID.F0)  THUS 

**  **★•*  * +■*■*+  ****  ****  ****  ***♦ 

• • • • <* 

97  LOOP 

98  ALWAYS 

99  'OUT. OF. LOOP' 

100  LET  LIST(*)  ■ 0 

101  RETURN  END 

Lines  1-7  define  the  routine  and  local  variables. 

Lines  8-12  initialize  values  of  the  array  called  CLUSTERS  to  zero. 
Lines  13-17  search  through  the  FO's  list  of  detected  targets. 

Lines  18-20  check  if  a detected  vehicle  was  previously  destroyed. 

If  so,  control  transfers  to  line  73. 

Line  21  updates  location  of  detected  vehicle. 

Line  22  initializes  to  zero  the  vehicle's  representation  in  the  array 
called  C. NUMBER. ARRAY. 

Lines  23-34  check  whether  there  are  any  clusters  currently  designated. 
If  not,  the  first  cluster  is  formed  with  the  characteristics  of  the  first 
detected  vehicle.  Control  is  transferred  to  line  78. 

Lines  35-44  screen  all  clusters  to  determine  if  the  detected  vehicle 
lies  in  any  of  them.  If  so,  the  cluster's  character! sti cs  are  updated. 
Lines  45-50  update  the  velocity  vector  of  the  cluster. 

Lines  51-57  compute  the  new  direction  of  the  cluster  and  control 


transfers  to  line  78. 


Lines  61-61  are  continuation  labels. 

Lines  64-74  check  whether  the  vehicle  fell  within  an  existing  cluster. 

Line  75  is  a continuation  label. 

Lines  77-89  calculate  the  priority  of  each  cluster. 

Lines  90-98  are  print  options. 

Line  99  is  a continuation  label. 

Line  100  releases  the  FO's  list. 

Line  101  returns  control  to  the  system  timer. 

16.  Routine  ASSESSMENT 
Oescri ption 

Routine  ASSESSMENT  calculates  the  individual  round's  impact 
point.  All  Red  vehicles  are  then  checked  to  determine  which  lie 
within  a 300  meter  by  300  meter  square  screening  box,  with  the 
input  point  at  its  center.  If  a vehicle  lies  within  the  screen- 
ing box,  the  distance  between  the  vehicle  and  the  impact  point 
is  determined.  If  this  difference  is  less  than  a given  input 
value,  the  difference  is  compared  to  a lethal  radius.  If  the 
difference  is  less  than  a given  lethal  radius,  damage  is  assessed 
at  that  level.  This  routine  is  called  by  event  ARTY. IMPACT.  All 
errors  are  measured  in  meters.  It  calls  routines  DIST,LOC,NEW. 
COORDINATE. SYSTEM, PARAMETERS,  and  TALLY. HIT. STATE. 

Local  Variables 

I and  A - Integer  variables  used  as  do  loop  counters. 

ID.BTRY  - An  integer  variable  representing  the  firing  unit. 

ID.FDC  - An  integer  variable  representing  the  FDC. 

ID.FO  - An  integer  variable  representing  the  FO. 

ID. MISSION  - An  integer  variable  representing  the  mission 
being  fired. 
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DIFFERENCE  - A real  variable  equal  to  the  radial  miss  distance 
between  an  individual  round's  impact  point  and  a vehicle's  location. 


SIG.X  - A real  variable  equal  to  the  standard  deviation  of 
range  dispersion,  measured  in  the  gun  target  coordinate  system. 

SIG.Y  - A real  variable  equal  to  the  standard  deviation  of 
deflection  dispersion,  measured  in  the  gun  target  coordinate  system. 

X.  ERROR  - A real  variable  equal  to  the  range  dispersion  in 
meters  for  the  mean  point  of  impact  (MPI)  of  the  volley,  measured 
in  the  gun  target  coordinate  system. 

Y.  ERROR  - A real  variable  equal  to  the  deflection  dispersion 
in  meters  for  the  MPI  of  the  volley,  measured  in  the  gun  target 
coordinate  system. 

X.  CHANGE  - A real  variable  equal  to  the  range  dispersion  of 
the  MPI,  measured  in  the  battlefield  coordinate  system. 

Y.  CHANGE  - A real  variable  equal  to  the  deflection  dispersion 
of  the  MPI,  measured  in  the  battlefield  coordinate  system. 

X.  NORMAL. ERROR  - A real  variable  equal  to  the  range  disper- 
sion for  an  individual  round,  measured  in  the  gun  target  co- 
ordinate system. 

Y.  NORMAL. ERROR  - A real  variable  equal  to  the  deflection  dis- 
persion for  an  individual  round,  measured  in  the  gun  target  co- 
ordinate system. 

XNEW  - A real  variable  equal  to  the  X displacement  of  an  in- 
dividual weapon,  measured  in  the  battlefield  coordinate  system. 

YNEM  - A real  variable  equal  to  the  Y displacement  of  an  in- 
dividual weapon,  measured  in  the  battlefield  coordinate  system. 

XDIF  - A real  variable  equal  to  the  range  dispersion  for  an 
individual  round,  measured  in  the  battlefield  coordinate  system. 
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XDIF  - A real  variable  equal  to  the  deflection  dispersion 
for  an  individual  round,  measured  in  the  battlefield  coordinate 
system. 

PI  - A real  variable  equal  to  the  probability  of  an  f-kill. 

P2  - A real  variable  equal  to  the  probability  of  an  m-kill. 

P3  - A real  variable  equal  to  the  probability  of  a k-kill. 

Coding  and  Brief  Explanation 

1 ROUTINE  ASSESSMENT  I D.BTRY, ID. FDC.ID.FO, ID. MISSION) 

2 DEFINE  I, ID. BTRY, ID, FDC.ID.FO, ID. MISSION, 

3 AND  A AS  INTEGER  VARIABLES 

4 DEFINE  DIFFERENCE, SIG.Y.X. ERROR, XDIF, Y, CHANGE, Y, NORMAL. ERROR, 

5 YNEW, SIG.X.X. CHANGE, X. NORMAL, ERROR, XNEW.Y, ERROR, 

6 PI.P2.P3  AND  YDIF  AS  REAL  VARIABLES 

7 RESERVE  RD. OFFSET*,*)  AS  LARGEST, NUM.WPNS  BY  2 

8 CALL  PARAMETERS (2, AMMUNITION. TYPE( ID. MISSION), CAL I BER ( ID. BTRY), 

9 GT. FINAL. RG( ID. MISSION))  YIELDING  SIG.X  AND  SIG.Y 

10  LET  X. ERROR  = NORMAL. F(0, SIG.X, RN. STREAM) 

11  LET  Y. ERROR  =■  NORMAL. F(0,SIG. Y,RN. STREAM) 

12  CALL  NEW. COORDINATE. SYSTEM(X. ERROR, Y, ERROR, 

13  THETA(ID. MISSION))  YIELDING  X, CHANGE  AND  Y, CHANGE 

14  LET  X.MPKID. MISSION)  = X. CHANGE  + X. FUTURE, LOC( ID. MISSION) 

15  LET  Y.MPKID. MISSION)  - Y. CHANGE  + Y. FUTURE, LOC (ID. MISSION) 

16  FOR  1=1  TO  NUM,GUNS( ID. BTRY ) , DO 

17  CALL  NEW. COORDINATE. SYSTEM( DISPLACEMENT  1 , 1 , ID. BTRY), 

13  DISPLACEMENT  1, 2, ID. BTRY), THETA(ID. MISSION))  YIELDING 

19  XNEW  AND  YNEW 

20  CALL  PARAMETERS(1, AMMUNITION. TYPE(ID, MISSION), CALIBER( ID. BTRY), 

21  GT. FINAL. RG(ID. MISSION))  YIELDING  SIG.X  AND  SIG.Y 
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22  LET  X. NORMAL. ERROR  * NORMAL. F(0,SIG.X,RN. STREAM) 

23  LET  Y. NORMAL. ERROR  * NORMAL. F(0,SIG. X,RN. STREAM) 

24  CALL  NEW. COORDINATE. SYSTEM(X. NORMAL. ERROR, Y. NORMAL. ERROR, 

THETA(ID. MISSION)) 

25  YIELDING  XDIF  AND  YDIF 

26  LET  RD.OFFSET(I.l)  * X.MPI (ID. MISSION)  ♦ XNEW  ♦ XDIF 

27  LET  RD .OFFS ET ( 1,2)  ■ Y.MPI ( ID. MISSION)  + YNEW  + YDIF 

28  LOOP 

20  IF  AMMUNITION. TYPE(ID. MISSION)  - 1 

30  LET  NUM.DPICM.LEFTdD.BTRY)  - NUM.DPICM.LEFT(  ID.BTRY ) - NUM.GUNS 

(ID.BTRY) 

31  GO  TO  NEXT 

32  ELSE 

33  LET  NUM  .HE.LEFTdD.3TRY)  * NUM.HE.LEFT(  ID.BTRY)  - NUM.GUNS(  ID.BTRY) 

34  'NEXT' 

35  FOR  EACH  TANK  IN  RED. ALIVE,  DO 

36  CALL  LOC (TANK) 

37  IF  ABS. F( X.CURRENT(TANK)  - X.MPI (ID. MISSION) ) LT  300 

33  THEN  IF  ABS . F( Y .CURRENT (TANK)  - Y.MPI ( ID.MISSION)  LT  300 

39  IF  DEBUG  GE  1 

40  PRINT  1 LINE  WITH  NAME(TANK)  THUS 

TANK  # ****  WAS  FIRED  ON  

41  ALWAYS 

42  FOR  I - 1 TO  NUM.GUNS( ID.BTRY) , DO 

43  CALL  DIST(X. CURRENT (TANK) ,Y. CURRENT (TANK) ,RD.OFFSET( 1,1), 

RD.OFFSET( 1,2)) 

44  YIELDING  DIFFERENCE 

45  THEN  IF  DIFFERENCE  LE  D. RADIUS 
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46  LET  AMT. OF. HITS( ID. MISSION)  = AMT. OF, HITS( ID. MISSION)  + 1 

47  IF  DEBUG  GE  1 

43  PRINT  1 LINE  WITH  I, DIFFERENCE  AND  NAME (TANK)  THUS 
RD#  **  LANDED  ***.  METERS  FROM  TANK#  *** 

49  ALWAYS 

50  FOR  A = 1 TO  3,  DO 

51  IF  DIFFERENCE  LE  LETHAL. RADIUS. ARRAY(CALIBER(ID. BTRY) , 

52  WPN.TYPE(TANK), AMMUNITION. TYPE(ID. MISSION), A) 

53  GO  TO  0UT1.0UT2.0UT3  PER  A 

54  ELSE 

55  GO  TO  L00P2 

56  1 0UT1 ' 

57  LET  P3  = 1 
53  GO  TO  L00P1 

59  '0UT2' 

60  LET  P2  = 1 
51  GO  TO  LOO PI 

62  ' 0UT3 ' 

63  LET  PI  = 1 

64  'L00P1' 

65  CALL  ATRIT(TANK,TANK,P1,P2,P3,1) 

66  CALL  TALLY. HIT. STATE(TANK, DAMAGE. NUM) 

67  IF  DAMAGE. NUM  =5 

68  LET  ALIVE. DEAD(TANK)  = 1 

69  LET  FOE(TANK)  = C 

70  LET  HIT.STATE(TANK)  = " FA  " 

71  LET  LEVEL. OF. DAMAGE(ID. MISSION)  = LEVEL. OF. DAMAGE( ID. MISSION) 

72  START  NEW  LINE 


73  WRITE 

74  NCASE,  GUNTUBE,  AMMUNITION. TYPE( ID. MISSION) .NAME(TANK) , 

75  CALIBER( ID.BTRY) .TIME.V. 

76  X. CURRENT (TANK) , Y. CURRENT (TANK) ,Z.CURRENT( TANK) ,SPD( TANK) , 

77  OEFNUM(TANK) , HIT. STATE ( TANK )M. D( TANK) .F.D(TANK) .MKILL(TANK) , 

78  FKILL(TANK) ,MFKILL(TANK) , 

79  KKILL(TANK) .K.HIT(TANK) .FIRED. AT (TANK) 

80  AND  NUM.HIT(TANK)  AS 

81  I 2,  I 3, ''ARTY",  S 8, 

82  3 I 4,  I 5,  S 20,  S 7,  3 I 5,  0(4,1),  I 3,  S 11, 

83  S 1,  A 4,  2 D ( 5 , 2 ) , 2 I 2,  5 I 3 

84  ALWAYS 

85  IF  P3  = 1 GO  TO  0UT4  ELSE 

86  * L00P2  * 

87  LOOP 

88  '0UT4' 

89  ALWAYS 

90  LOOP 

91  REPEAT 

92  RELEASE  RD.OFFSET(*,*) 

93  RETURN  END 

Lines  1-6  define  the  routine  and  the  local  variables. 

Line  7 reserve  array  storage. 

Lines  8-9  determine  the  standard  deviations  for  the  MPI  dispersion 
errors. 

Lines  10-11  generate  the  dispersion  errors  for  range  and  deflection, 
measured  in  the  gun  target  coordinate  system. 
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Lines  12-13  change  the  dispersion  errors  into  the  battlefield  coordi- 
nate system. 

Lines  14-15  apply  the  dispersion  errors  to  the  estimated  location  of 
the  cluster  (the  planned  impact  for  the  volley)  to  determine  the  achieved 
MPI . 

Lines  16-23  displace  each  round  from  the  MPI  in  accordance  with  its 
planned  displacement  and  dispersion  errors.  The  displacement  from  firing 
unit  center  and  the  dispersion  errors  are  both  translated  into  the  battle- 
field coordinate  system. 

Lines  20-34  update  the  ammunition  count. 

Lines  35-38  screen  each  iled  vehicle.  If  it  les  within  the  screening 
rectangle,  it  is  tested  further. 

Lines  30-41  are  a print  option. 

Lines  42-43  determine  the  niss  distance  between  each  round's  impact 
point  and  the  vehicle's  location. 

Lines  45-46  check  if  the  miss  distance  is  less  than  or  equal  to  a 
user  input  value.  If  so,  an  attribute  is  incremented  by  one  and  the  miss 
distance  is  checked  further. 

Lines  47-49  are  a print  option. 

Lines  50-66  check  the  distance  determined  earlier  against  three  lethal 
radii.  If  the  distance  is  less  than  a given  lethal  radius,  the  appro- 
priate probability  of  damage  is  given  the  value  of  one  and  the  assessment 
and  bookkeeping  routi nes  are  called. 

Lines  67-71  check  if  the  3ed  vehicle  is  k-killed.  If  so,  attributes 
are  updated. 

Lines  71-33  print  out  appropriate  information  on  the  damage  that 
occurred. 
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Line  35  checks  if  the  damage  was  a k-kill.  If  so,  no  more  checks 
are  made. 

Line  92  releases  array  storage. 

Line  93  returns  control  to  the  calling  event. 

17.  'Routine  ERROR 
Description 

Routine  ERROR  calculates  the  distance  between  an  adjusting 
round  and  the  target.  The  routine  generates  the  error  in  range 
and  deflection  based  on  the  relative  position  of  the  firing  unit 
and  the  target  (gun  target  coordinate  system).  A conversion  is 
then  made  to  the  battlefield  coordinate  system.  The  round's 
impact  point  is  the  estimated  location  of  the  target  (aiming 
point  given  the  FDC)  with  dispersion  errors  applied.  If  all 
vehicles  are  destroyed  before  the  time  of  the  adjusting  round's 
impact  (usually  due  to  direct  fire  weapons',  a value  of  5 is 
given  to  ERROR. CODE  and  999  is  returned  as  an  argument.  Otherwise, 
the  radial  miss  distance  is  returned  as  an  argument.  Routine  ERROR 
is  called  by  event  ARTY. IMPACT  and  schedules  event  END. OF. MISSION. 
It  calls  routines  DIST,  POSITION.UPDATE,  and  PARAMETERS. 

Local  Variables 

ANS  - A real  variable  equal  to  the  distance  between  adjusting 
round  and  the  target. 

SIG.X  - A real  variable  equal  to  the  standard  deviation  para- 
meter for  the  normal  distribution  of  range  dispersion  for  a single 
round  (precision). 

SIG.Y  - A real  variable  equal  to  the  standard  deviation  para- 
meter for  the  normal  distribution  of  deflection  dispersion 
(precision) . 
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X. NORMAL. ERROR  - A real  variable  equal  to  the  error  in  range 
in  terms  of  the  gun  target  coordinate  system. 

V. NORMAL. ERROR  - A real  va:  able  equal  to  the  error  in 
deflection  in  terms  of  the  gun  target  coordinate  system. 

XDIF  - A real  variable  equal  to  the  error  in  X coordinates 
in  terms  of  the  battlefield  coordinate  system. 

YDIF  - A real  variable  equal  to  the  error  in  Y coordinates 
in  terms  of  the  battlefield  coordinate  system. 

X.  IMPACT. POINT  - A real  variable  equal  to  the  X coordinate 
of  the  adjusting  round's  impact  point. 

Y.  IMPACT. POINT  - A real  variable  equal  to  the  Y coordinate 
of  the  adjusting  round's  impact  point. 

Coding  and  Sri ef  Explanation 

1 ROUTINE  ERROR ( ID.3TRY , ID. FOC , ID. FO, I0.MISSI0N ' YIELDING  ANS 

C DEFINE  1 0.3 TRY, ID. FDC, ID. FO, 10.. MISS  ION  AND  ”AN\  AS  INTEGER 

VARIABLES 

3 DEFINE  \NS, SIG.Y.X. IMPACT. POINT. XDIF. Y. NORMAL. ERROR, SI G.X. 

X NORMAL. ERROR, 

4 Y.  IMPACT.  :>OINT  AND  YDIF  AS  REAL  VARI  ABLES 

5 CALL  PARAMETERS  v 1 .AMMUNITION . TYPE ( I D. MISS  ION N , CALIBER ; ID.BTRY ' , 

6 IT. FINAL. RG(ID. MISSION!)  YIELDING  SIG.X  AND  SIG.Y 

7 LET  X. NORMAL. ERROR  * NORMAL . F(0,SIG. X ,RN .STREAM) 

3 LET  Y.  NORMAL.  ERROR  =>  NORMAL . F(  0 ,S  IG . Y ,RN  .STREAM) 

A CALL  NE’N . COORDINATE . SY$’EM(  X . NORMAL . ERROR  . Y . NORMAL . ERROR , THETA 

(ID. MISSION" 

10  YIELDING  XDIF  AND  YDIF 

11  LET  X. IMPACT. POINT  * X. FUTURE. L0C(ID, MISSION!  * XDIF 

12  LET  Y. IMPACT. POINT  = Y . FUTURE . LOC ( ID. MISS  ION ' * YD  I F 
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13  CALL  POSITION. UPDATE(ID. MISSION, 0) 

14  IF  X.CUR4(ID. MISSION)  = 0 

15  THEN  IF  Y.CUR4(ID. MISSION)  = 0 

16  LET  ERROR. CODE(IO. MISSION)  = 5 

17  SCHEOULE  AN  ENO.OF.riISSION(ID.BTRY, ID. FDCdD.FO, ID. MISSION)  NOW 

18  LET  ANS  = 999 

19  GO  TO  OUT 

20  ELSE 

21  CALL  DIST(X.CUR4(ID. MISSION), Y.C'JR4(ID. MISSION), X. IMPACT. POINT, 

22  Y. IMPACT. POINT)  YIELDING  ANS 

23  'OUT' 

24  RETURN  END 

Lines  1-4  define  the  routine  and  the  local  variables. 

Lines  5-6  call  the  routine  PARAMETERS,  returning  the  appropriate 
standard  deviation  of  the  normal  distribution  describing  a round's  pre- 
cision dispersion  pattern. 

Lines  7-3  generate  normal  errors  in  the  X and  Y directions. 

Lines  9-10  transform  the  normal  errors  in  the  gun  target  coordinate 
system  to  errors  in  the  battlefield  reference  system. 

Lines  11-12  apply  the  errors  to  the  aiming  point  coordinates. 

Line  13  updates  the  actual  location  of  the  cluster  centroid. 

Lines  14-20  check  if  the  cluster  is  empty.  If  so,  a value  of  five  is 
given  to  the  attribute  ERROR. CODE  of  MISSION,  an  argument  of  999  is  re- 
turned, and  control  returned  to  the  calling  routine. 

Lines  21-22  calculate  the  radial  miss  distance. 

Line  24  returns  control  to  the  calling  routine. 
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18.  Event  RED. ARTY. FIRES 


Descri ption 

Event  RED. ARTY. FIRES  assesses  the  damage  to  Blue  vehicles 
that  lie  within  the  effects  pattern  of  Red  planned  fires.  The 
probabilities  of  damage  are  calculated  and  routine  ATRIT  is 
called  to  assess  damage.  Event  RED. ARTY. FIRES  is  scheduled  by 
FA. 2. MAIN  and  itself.  It  schedules  the  event  ALT.FO  and  calls 
routines  LOC, ATRIT,  and  TALLY. HIT. STATE. 

Local  Variables 

ITERATION  - An  integer  variable  representing  the  target 
number. 

I  - An  integer  variable  used  as  a do  loop  counter. 
ID.RED.BTRY  - An  integer  variable  representing  the  firing 

uni  t. 

TYPE. AMMO  - An  integer  variable  representing  the  type  of 
ammunition  fired. 

PI  - A real  variable  equal  to  the  probability  of  an  f-kill 

P2  - A real  variable  equal  to  the  probability  of  an  m-kill 

P3  - A real  variable  equal  to  the  probability  of  a k-kill. 

RED. 2. CONSTANT  - A real  variable  equal  to  a conversion 
factor,  used  in  assessing  the  probability  of  damage  to  a Dragon 
gunner. 

Coding  and  Brief  Explanation 

1 UPON  RED. ARTY. FIRES(ITERATION, ID.RED.BTRY) 

2 DEFINE  ITERATION, I, ID.RED.BTRY  AND  TYPE. AMMO  AS  INTEGER 

3 VARIABLES 

4 DEFINE  P1,P2,P3,X  AND  RED. 2 .CONSTANT  AS  REAL  VARIABLES 


5 FOR  I » 1 TO  SALVOS,  DO 

6 IF  KOUNT ( ID.RED.BTRY ) = 5 

7 LET  KOUNT(  ID.RED.BTRY)  =■  0 

8 LET  TYPE. AMMO  » 1 

9 LET  NUM. DP  I CM. LEFT (ID.RED.BTRY)  - NUM ,DPICM.LEFT( ID.RED.BTRY )- 

10  NUM. GUNS ( ID.RED.BTRY ) 

11  GO  TO  NEXT 

12  ELSE 

13  LET  TYPE. AMMO  * 2 

14  LET  NUM. HE. L EFT ( ID.RED.BTRY)  = NUM.HE.LEFT( I D.RED.BTRY)- 

15  NUM. GUNS ( ID.RED.BTRY) 

16  'NEXT' 

17  LET  KOUNT(  ID.RED.BTRY ) =■  KOUNT  (ID.RED.BTRY)  + 1 
13  FOR  EACH  TANK  IN  BLUE. ALIVE,  DO 

19  CALL  LOC(TANK) 

20  IF  X.CURRENT(TANK)  GE  RED. PLANNED. FIRES ( ITERATION, 1 , I D. RED. BTRY-3 ) 

*100 

21  THEN  IF  X.CURRENT(TANK)  LT  RED. PLANNED. FIRES ( ITERATION, 3 , I D. RED. 

BTRY-3)*100 

22  THEN  IF  Y ,CURRENT(  TANK ) GT  RED.  PLANNED  . FI  RES  ( ITERATIONS , ID. RED. 

BTRY-3)*100 

23  THEN  IF  Y . CURRENT( TANK)  LE  RED. PLANNED. FIRES ( ITERATION ,2 , ID. RED. 

BTRY-3) *100 

24  LET  RED. 2. CONSTANT  = 1 

25  IF  WPN. TYPE (TANK)  = 6 

26  THEN  IF  DEFNUM(TANK)  * 3 

27  IF  TYPE. AMMO  = 1 
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28  LET  RED. 2. CONSTANT  * 5 

29  GO  TO  ALWAYS 

30  ELSE 

31  LET  RED. 2. CONSTANT  » 10 

32  'ALWAYS' 

33  ALWAYS 

34  LET  PI  * ARTY.PK. TABLE (CALIBER ( ID. RED. BTRY ) ,WPN . TYPE ( TANK ) , 

35  TYPE. AMMO. 3)  * NUM.GUNS( ID. RED. BTRY) 

36  * RED. 2. CONSTANT 

37  LET  P2  - ARTY. PK.TABLE(CALIBER( ID. RED. BTRY), WPN.TYPE(TANK) , 

38  TYPE. AMMO, 2)  * NUM.GUNS( ID. RED. BTRY) 

39  * RED. 2. CONSTANT 

40  LET  P3  ’ ARTY  PK.TABLE(CALIBER( ID. RED. BTRY), WPN.TYPE(TANK), 

41  TYPE.. AMMO, 1)  * NUM. GUNS (ID. RED. BTRY) 

42  * RED. 2. CONSTANT 

43  CALL  ATRIT( TANK, TANK, PI , P2 , P3, 1 ) 

44  CALL  TALLY. HIT. STATE(TAMK, DAMAGE, NUM) 

45  IF  DAMAGE. NUM  * 5 

46  LET  ALIVE. DEAD(TANK)  » 1 

47  LET  HIT. STATE (TANK)  * "FA.l" 

48  LET  FOE(TANK)  * 0 

49  IF  FA( TANK)  NE  0 

50  SCHEDULE  AN  ALT. F0( TANK ) IN  100  UNITS 

51  ALWAYS 

52  ALWAYS 

53  START  NEW  LINE 

54  WRITE 

55  NCASE,  GUNTUBE,  TYPE. AMMO,  NAME (TANK) , 
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56  CALIBER( ID. RED. BTRY), TIME. V, 

57  X.CURRENT(TNAK) ,Y. CURRENT (TANK) ,Z. CURRENT (TANK) ,SPD(TANK) , 

58  DEFNUM(TANK) , 

59  FK ILL (TANK) ,MFK ILL (TANK) , 

60  KKILL(TANK),K. HIT( TANK), FIRED. AT(TANK) 

61  AND  NUM.HIT( TANK)  AS 

62  I 2,  I 3,  "ARTY" , S 8, 

63  3 I 4,  I 5,  S 20,  S 7,  3 I 5,  D(4,l),  I 3,  S 11, 

64  S 1,  A 4,  2 0(5,2),  2 I 2,  5 I 3 

65  ALWAYS 

66  LOOP 

67  REPEAT 

68  IF  ITERATION  EQ  30 

69  LET  ITERATION  = 0 

70  ALWAYS 

71  LET  ITERATION  = ITERATION  + 1 

72  SCHEDULE  A RED. ARTY . FI  RES ( I TERATION, ID.RED.8TRY ) IN 

73  (60/RATE.0F.FIRE( I D. RED. BTRY ) ) * SALVOS  UNITS 

74  LET  NO.MSNS.FI RE (ID. RED. BTRY)  = NO.MSNS . FIRED( ID. RED. BTRY)  + 1 

75  RETURN  END 

Lines  1-4  define  the  event  and  the  local  variables. 

Lines  5-17  determine  the  ammunition  type  (20*  OPICM  and  80*  HE)  and 
update  ammunition  status. 

Lines  18-23  check  if  Blue  vehicle  lies  within  the  volley's  effects. 
Lines  24-33  set  the  value  for  the  conversion  factor. 

Lines  34-44  calculate  the  probability  of  the  different  damage  levels 
and  call  the  damage  assessment  and  bookkeeping  routines. 
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Lines  45-43  check  if  vehicle  is  k-killed.  If  so,  attributes  are 
updated. 

Lines  49-51  check  if  the  k-killed  system  was  also  an  FO.  If  so, 
a search  for  a replacement  for  the  FO  is  scheduled. 

Lines  53-64  print  the  appropriate  damage  information. 

Lines  68-70  check  if  the  Red  fire  plan  is  firing  at  its  last  target. 
If  so,  the  plan  is  repeated. 

Lines  71-73  schedule  the  next  Red  planned  fire 

Line  74  updates  the  number  of  targets  that  have  been  fired  by  the 
Red  battery. 

Line  75  returns  control  to  the  system  timer. 

19.  Routine  NEW. COORDINATE. SYSTEM 
Description 

Routine  NEW .COORDINATE. SYSTEM  transforms  a position  from 
one  coordinate  system  to  the  corresponding  position  in  a second 
coordinate  system.  It  is  called  by  routine  ASSESSMENT  and 
routine  ERROR. 

Local  Variables 

XNEW  - A real  variable  equal  to  the  X coordinate  in  the  new 
coordinate  system. 

YNEW  - A real  variable  equal  to  the  Y coordinate  in  the  new 
coordinate  system. 

XOLD  - A real  variable  equal  to  the  X coordinate  in  the  old 
coordinate  system. 

YOLO  - A real  variable  equal  to  the  Y coordinate  in  the  old 
coordinate  system. 

ANGLE  - A real  variable  equal  to  the  angle  between  the  two 
coordinate  systems,  measured  counterclockwi se  in  radians  from 


the  horizontal  axis. 

Coding  and  Brief  Explanation 

1 ROUTINE  FOR  NEW. COORDINATE. SYSTEM(XOLD, YOLD, ANGLE)  YIELDING  XNEW 

AND  YNEW 

2 DEFINE  XNEW  AND  YNEW  AS  REAL  VARIABLES 

3 DEFINE  XOLD, YOLD  AND  ANGLE  AS  REAL  VARIABLES 

4 LET  XNEW  = XOLD  * COS.F(ANGLE)  - YOLD  * SIN.F(ANGLE) 

5 LET  YNEW  = YOLD  * COS.F(ANGLE)  + XOLD  * SIN. F(ANGLE) 

6 RETURN  END 

Lines  1-3  define  the  routine  and  the  local  variables. 

Line  4 calculates  the  new  X coordinate. 

Line  5 calculates  the  new  Y coordinate. 

Line  6 returns  control  to  the  calling  routine. 

20.  Routine  NEW. MISSION 
Descri pti on 

Routine  NEW. MISSION  creates  a mission  at  the  time  the  FO 
selects  a target  to  attack.  The  attributes  of  the  new  mission 
are  assigned  the  appropriate  values  from  the  designated  cluster 
plus  new  values.  Routine  NEW. MISSION  is  called  by  event 
CLUSTER. UPDATE  and  calls  routine  DIST. 

Local  Variables 

ID.FO  - An  integer  variable  representing  the  FO  who  is 
fi  ring  the  mission. 

NAME. PRIOR ITY  - An  integer  variable  representing  the  cluster 
selected  as  the  target. 

M - An  integer  variable  representing  the  newly  created 
mission. 
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A - A real  variable  equal  to  the  range  between  the  FO  and 
the  cluster  centroid. 

PRIORITY  - A real  variable  equal  to  the  priority  (relative 
weight)  of  the  cluster  selected  by  the  FO. 

Coding  and  Brief  Explanation 

1 ROUTINE  NEU.MISSION(ID.FO, NAME. PRIORITY, PRIORITY)  YIELDING  M 

2 DEFINE  ID. FO, NAME. PRIORITY  AND  M AS  INTEGER  VARIABLES 

3 DEFINE  A AND  PRIORITY  AS  REAL  VARIABLES 

4 CREATE  AMISSION 

5 LET  AMT. IN. CLUSTER (MISS  ION)  * CLUSTERS (NAME . PRIORITY , I , I D. FO ) 

5 LET  NO. CLUSTER (MISS ION)  = NAME. PRIORITY 

7 LET  PR  I .OF. CLUSTER (MISS  ION)  = PRIORITY 

3 LET  X.CUR4(MISSI ON ) = CLUSTERS(NAME. PRIORITY, 3, ID. FO) 

9 LET  Y.C1JR4(MISSI0N)  =■  CLUSTERS( NAME . PRIORI  TY  ,4 , ID  , FO ) 

10  LET  SPEED(MISSION)  = CLUSTERS (NAME. PRIORITY ,5, ID. FO) 

11  LET  DIRECTION (MISS ION ) = CLUSTERS(NAME„ PRIORITY, 6 , ID.FO) 

12  LET  L COUNT  =■  LCOUNT  + 1 

13  LET  MSN. NAME (MISS ION)  = LCOUNT 

14  LET  FIST(MISSION)  = ID.FO 

15  CALL  DIST(X.CUR4(MISSI0N) , Y.CUR4(MISS ION ) ,X  CURRENT( POINTING. TO 

(ID.FO)), 

16  Y. CURRENT (POINTING. TO ( ID.FO) ) ) YIELDING  A 

17  LET  FO.TGT.RANGE(MISSION)  * A 

18  LET  M = MISSION 

19  IF  DEBUG  GE  1 

20  START  NEW  LINE 

21  PRINT  3 LINES  WITH  ID.FO, MSN. NAME (MISS  ION) .SPEED (MI  SSI  ON) .X.CUR4 

(MISSION), 


' 


| 
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22  Y . CUR4 ( MI SS I ON ) .DIRECTION (MI  SSI  ON)  AND  A THUS 


COMPUTING  MSN 


SPD  **.  X 


*★  Y ★★★★ 


r.  DIR 


FO  RANGE  TO  TGT 


23  SKIP  1 OUTPUT  LINE 


24  ALWAYS 


25  RETURN  END 


Lines  1-3  define  the  routine  and  the  local  variables. 


Line  4 creates  a new  MISSION. 


Lines  5-14  give  values  to  attributes  of  the  new  MISSION. 


Lines  15-17  determine  the  distance  in  meters  from  the  FO  to  the 


cluster  centroid. 


Line  18  assigns  the  value  of  the  pointer  of  the  MISSION  to  the 


argument  M. 


Lines  19-24  are  a print  option. 


Line  25  returns  control  to  the  calling  event. 


21.  Routine  PARAMETERS 


Description 


Routine  PARAMETERS  calculates  the  standard  deviation  for 


range  and  deflection  from  linear  approximations  of  the  standard 


deviation  of  dispersion  about  the  impact  point  (stored  in  array 


SIGMA. DPICM) . Array  RANGE. BANDS  contains  the  endpoints  (break- 


points) of  each  of  the  linear  approximations.  The  routine  inter- 


polates the  appropriate  value.  If  the  range  is  less  than  the 


minimum  value  in  the  array,  the  minimum  value  is  used.  If  the 


range  is  greater  than  the  maximum  value  in  the  array,  the  maximum 


value  is  used.  Routine  PARAMETERS  is  called  by  routine  ERROR 


routine  ASSESSMENT. 


i a i mum 

)R  and 

J 


Local  Variables 


I - An  integer  variable  representing  the  value  of  COUNT. 

J - An  integer  variable  representing  the  type  of  ERROR 
required,  with  a value  of  1 for  precision  error  and  2 for  error 
in  MPI . 

K - An  integer  variable  representing  the  caliber  of  the 
weapon  firing  the  MISSION. 

TYPE. AMMO  - An  integer  variable  representing  the  type  of 
ammunition  used  in  the  MISSION,  with  a value  of  1 as  DPICM  and 
2 as  HE. 

COUNT  - An  integer  variable  representing  the  upper  value 
of  a pair  of  endpoints  that  bracket  the  range. 

RG  - A real  variable  equal  to  the  range  from  the  firing  unit 
to  the  cluster  centroid.  The  value  is  converted  to  range  in 
thousands  of  meters . 

DELTA.  1 - A real  variable  equal  to  the  difference  in  the 
endpoints  that  bracket  the  range. 

DELTA. 2 - a real  variable  equal  to  the  difference  between 
the  range  and  the  lower  of  the  two  endpoints  that  bracket  the 
range. 

SIG.DF  - A real  variable  equal  to  tne  standard  deviation 
for  deflection. 

SIG.RG  - A real  variable  equal  to  the  standard  deviation 
for  range. 

FRACTION  - A real  variable  equal  to  the  distance  along  the 
linear  approximation  for  which  the  interpolation  was  required. 
Coding  and  Brief  Explanation 
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1 ROUTINE  P ARAME TERS (J, TYPE. AMMO, K,RG)  YIELDING  SIG.RG  AND  SIG.DF 

2 DEFINE  I,J,K, COUNT  AND  TYPE. AMMO  AS  INTEGER  VARIABLES 

3 DEFINE  DELTA. 2, SIG.DF, DELTA. 1, FRACTION  AND  SIG.RG  AS  REAL  VARIABLES 

4 DEFINE  RG  AS  A REAL  VARIABLE 

5 LET  RG  =•  RG/IOOO 

6 IF  RG  LE  RANGE. BANDS(1 ,K) 

7 LET  COUNT  = 2 

3 LET  FRACTION  * 0 
9 GO  TO  NEXT 

10  ELSE 

11  IF  RG  GE  RANGE. BANDS (NO. RANGE. BANDS, K) 

12  LET  COUNT  = NO. RANGE. BANDS 

13  LET  FRACTION  = 1 

14  GO  TO  NEXT 

15  ELSE 

16  FOR  COUNT  * 2 TO  NO. RANGE. 3ANDS , DO 

17  IF  RG  LT  RANGE. 3ANDS(C0UNT,.<) 

13  GO  TO  NEXT 

19  LOOP 

20  ALWAYS 

21  'NEXT' 

22  LET  I * COUNT 

23  LET  DELTA. I = RANGE. BAN DS( COUNT,, <)  - RANGE. BANDS (COUNT- 1 ,K) 

24  LET  DELTA. 2 - RG  - RANGE. BANDS ( COUNT- 1 ,K) 

25  LET  FRACTION  - DELTA ..2/ DELTA.  1 

26  LET  SIG.RG  * SIGMA.DPICM( I-1,2*J-1 ,K)+FRACTION  ♦ (SIGMA. DPICM 

(I.2*J-1  »K) 

27  SIGMA. DP I CM ( 1-1 ,2*J ,K) ) 
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28  LET  SIG.DF  = SIGMA. DPICM( 1-1 ,2*J,K)  + FRACTION  * (SIGMA. DPICM 

(I ,2*J,K)- 

29  SIGMA.  DPICM(I-1,2*J,K)) 

30  RETURN  END 

Lines  1-4  define  the  routine  and  the  local  variables. 

Line  5 cal cul ates the  range  in  thousands  of  meters. 

Lines  6-10  check  if  the  range  is  less  than  the  lowest  breakpoint. 

If  it  is,  control  transfers  to  line  21. 

Lines  11-15  check  if  the  range  is  greater  or  equal  to  the  largest 
endpoint.  If  it  is,  control  is  transferred  to  line  21. 

Lines  16-20  set  the  value  of  COUNT  to  the  value  of  the  position  in 
the  array  called  RANGE. BANDS  of  the  highest  endpoint  of  the  set  of  end- 
points that  bracket  the  range. 

Line  21  i s a continuation  line. 

Lines  22-29  access  the  array  called  SIGMA. DPICM  and  interpolate  as 
necessary. 

Line  30  returns  control  to  the  calling  routine. 

22.  Routine  ARTY. TIME 
Descri ption 

Routine  ARTY. TIME  generates  an  elapsed  time  required  to 
accomplish  different  tasks  based  on  probability  distributions 
of  the  time  durations.  The  routine  uses  the  array  called  FA. 
TIME.OELTAS,  a two  dimensional  array  with  the  tasks  identified 
through  the  first  subscript  and  the  values  of  the  task  in  the 
second  subscript.  There  are  three  values  stored  for  each  task. 
The  first  value  identifies  the  type  distribution  and  has  the 
following  values:  1-determini Stic,  2-uni  form  distribution,  and 
3-normal  distribution.  If  the  distribution  is  deterministic. 
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its  value  is  in  the  second  column.  If  the  distribution  is  uni- 
form, the  start  point  of  the  interval  is  in  column  two  and  the 
end  point  is  in  column  three.  If  the  distribution  is  normal, 
the  value  of  the  mean  is  in  column  two  and  the  value  of  the 
standard  deviation  is  in  column  three.  The  routine  uses  the 
Simscript  functions  UNIFORM. F and  NORMAL. F to  generate  the  appro- 
priate numbers  based  on  the  chosen  random  number  stream. 

Routine  ARTY. TIME  is  called  by  event  UPOATE. CLUSTER , event 
COMMO. ATTEMPT,  event  FDC . PROCESSING,  event  CHECKING. GUNS  .AVAIL 
ABILITY,  event  FIRING. GUNS,  event  ARTY. IMPACT,  and  event  END. OF. 
MISSION. 

Local  Variable 

A - An  integer  variable  representing  the  type  of  task: 
integer  value  task 

1 Update  cluster 

2 FO  calculations 

3 Commo  from  FO  to  FDC 

4 Processing  in  FDC 

5 Firing  unit  operations 

6 FO  subsequent  adjusting  round 

7 Firing  unit  operations  - 
subsequent  rd 

3 End  of  mi ssion 

DEL. TIME  - A real  variable  equal  to  the  elapsed  time  gene- 
rated from  parameters  of  the  array  called  FA. TIME. DELTAS. 

Coding  and  Brief  Explanation 
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1 ROUTINE  ARTY.TIME(A)  YIELDING  DEL. TIME 

2 DEFINE  DEL. TIME  AS  A REAL  VARIABLE 

3 DEFINE  A AS  AN  INTEGER  VARIABLE 

4 IF  FA. TIME. DELTAS ( A, 1)  = 1 

5 LET  DEL. TIME  = FA. TIME .DELTAS (A, 2) 

6 RETURN  ELSE 

7 IF  FA.TIME.DELTAS(A.l)  = 2 

8 LET  DEL. TIME  = UNIFORM. F ( FA . TIME. DELTAS(A, 2) , FA. TIME. DELTAS(A, 3) , 

RN. STREAM) 

9 RETURN  ELSE 

10  LET  DEL. TIME  = NORMAL. F ( FA. TIME. DELTAS (A, 2) , FA. TIME. DELTAS (A, 3) , 

RN. STREAM) 

11  LET  DEL. TIME  = MAX. F(0, DEL. TIME) 

12  RETURN  END 

Lines  1-3  define  the  routine  and  the  local  variables. 

Lines  4-6  apply  if  the  distribution  is  deterministic.  The  time  is 
generated  and  control  returned  to  the  calling  event. 

Lines  7-9  apply  if  the  distribution  is  uniform.  If  it  is,  the  time 
is  generated  and  control  returned  to  the  calling  event. 

Lines  10-12  generate  a time  from  a normal  distribution  and  return 
control  to  the  calling  event. 

23.  Routine  FA. TGT. ERROR 
Oescri ption 

Routine  FA. TGT. ERROR  generates  a random  error  for  an  FO's 
sighting  (estimation  of  location)  of  a moving  vehicle.  It  uses 
array  TGT. ACQ. ERROR,  a 2 by  3 array.  The  rows  correspond  to 
the  value  of  A,  the  type  of  observation  device.  The  first  column 
of  the  appropriate  row  identifies  the  type  distribution  and  has 


the  following  values:  1 - deterministic,  2 - uniform  distribu- 
tion, and  3 - normal  distribution.  If  the  distribution  is 
deterministic,  its  value  is  in  column  two.  If  the  distribution 
is  uniform,  the  start  point  of  the  interval  is  in  c .umn  two  and 
the  endpoint  is  in  column  three.  If  the  distribution  is  normal, 
the  value  of  the  mean  is  in  column  two  and  the  value  of  the 
standard  deviation  is  in  column  three.  The  routine  uses  the  Sim- 
script  functions  UNIFORM. F and  NORMAL. F to  generate  the  appro- 
priate random  numbers  based  on  the  chosen  random  number  stream. 
Routine  FA. TGT. ERROR  is  called  by  routine  NEW. LOCATION. 

Local  Variables 

A - An  integer  variable  representing  the  FO's  observation 
device  with  a value  of  1 for  a laser  ranging  system  and  2 for 
binoculars (device  used  for  location  and  not  detection). 

LOC. ERROR  - A real  variable  equal  to  the  target  location 
error  in  meters. 

Coding  and  Brief  Explanation 

1 ROUTINE  FA. TGT. ERROR (A)  YIELDING  LOC. ERROR 

2 DEFINE  A AS  AN  INTEGER  VARIABLE 

3 DEFINE  LOC. ERROR  AS  A REAL  VARIABLE 

4 IF  TGT.ACq.ERROR(A,l)  = 1 

5 LET  LOC. ERROR  = TGT.ACQ.ERR0R(A,2) 

5 RETURN  ELSE 

7 IF  TGT.ACq.ERROR(A.l)  = 2 

8 LET  LOC. ERROR  = UNIFORM. F(TGT.ACQ.ERROR(A, 2) , 

9 TGT.ACQ.ERR0R(A,3) ,RN. STREAM) 

10  RETURN  ELSE 

11  LET  LOC. ERROR  = NORMAL. F ( TGT . ACO . ERROR ( A , 2) , 


12  TGT. ACQ.ERROR(A, 3 ),RN. STREAM) 

13  RETURN  END 

Lines  1-3  define  the  routine  and  the  local  variables. 

Lines  4-6  check  the  type  of  distribution.  If  the  distribution  is 
deterministic,  the  location  error  is  generated  and  control  is  returned 
to  the  calling  routine. 

Lines  7-10  check  if  the  distribution  is  uniform.  If  it  is,  the 
location  error  is  generated  and  control  returns  to  the  calling  routine. 

Lines  11-13  generate  a normal  location  error  and  return  control  to 
the  call i ng  routi ne. 

24.  Routine  NEW. LOCATION 
Descri pti on 

Routine  NEW. LOCATION  simulates  the  FO's  estimation  of  the 
new  location  of  a cluster  at  the  end  of  a given  time  duration. 

It  is  used  in  the  adjustment  phase  and  FFE  phase.  In  the  adjust- 
ment phase,  the  F0  takes  two  sightings  of  the  centroid  of  the 
cluster  20  seconds  apart  and  determines  the  apparent  speed  and 
direction  of  the  cluster.  In  the  FFE  phase,  the  apparent  speed 
and  direction  determined  after  the  last  adjusting  rounds  are  used. 
In  both  cases,  the  routine  extrapolates  new  locations  from  the 
last  position  of  the  cluster  for  the  time  period  of  the  estimated 
travel.  Events  CLUSTER .UPDATE  and  ARTY. IMPACT  call  routine  NEW. 
LOCATION.  It  calls  routines  DIST,  POSITION. UPDATE , and  FA. TGT. 
ERROR. 

Local  Variables 

ID.FO  - An  integer  variable  representing  the  FO  firing  the 
mission. 

ID. MISSION  - An  integer  variable  representing  the  current 
mission. 
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TANK  - An  integer  variable  representing  the  vehicle  being 


checked. 

DEL. TIME  - A real  variable  equal  to  the  time  period  over 
which  the  location  of  the  cluster  has  moved. 

A - An  integer  variable  representing  the  type  of  situation 
for  estimating  the  location.  The  variable  may  take  on  the  follow 
ing  values:  I - adjustment  phase,  and  2 - FFE  phase. 

DISTANCE  - A real  variable  equal  to  the  distance  in  meters 
between  two  sightings. 

ERR . 1 - ERR. 8 - Real  variables  equal  to  the  sighting  error. 
Since  the  error  was  based  on  a CEP  (circular  error  probable), 
the  error  distribution  is  the  same  in  both  the  X and  Y directions 

X. l  - A real  variable  equal  to  the  X coordinate  of  the  old 
location. 

Y. l  - A real  variable  equal  to  the  Y coordinate  of  the  old 
location. 

X. 2  - A real  variable  equal  to  the  X coordinate  of  the  first 
si ghti ng. 

Y. 2  - A real  variable  equal  to  the  Y coordinate  of  the  first 
sighti ng. 

X. 3  - A real  variable  equal  to  the  X coordinate  of  the 
second  sighting. 

Y. 3  - A real  variable  equal  to  the  Y coordinate  of  the 
second  sighting. 

Coding  and  Brief  Explanation 

1 ROUTINE  NEU.L0CATI0N(ID. MISSION, DEL. TIME, A) 

2 DEFINE  ID. MISSION, ID. FO, A AND  TANK  AS  INTEGER  VARIABLES 
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3 DEFINE  DEL. TIME  AS  A REAL  VARIABLE 

4 DEFINE  DISTANCE, ERR. 2, ERR. 4,ERR.6,ERR.8,X.1,X.3,Y.1,Y. 3 

ERR. 3, ERR. 5, ERR. 7, 

5 X.2.XX.Y.2,  AND  YY  AS  REAL  VARIABLES 

6 CALL  POSITION. UPDATE(ID. MISSION, 0) 

7 IF  X.CUR4(ID. MISSION)  = 0 

8 THEN  IF  Y.CUR4(in. MISSION)  = 0 

9 LET  ERROR. CODtdO. MISSION)  * 6 

10  ALWAYS 

11  IF  A = 2 

12  LET  X.l  * X. FUTURE. L0C( ID. MISSION) 

13  LET  Y.l  = Y. FUTURE. L0C( ID. MISSION) 

14  GO  TO  NEXT 

15  ELSE 

16  LET  ID. FO  = FIST( ID. MISSION) 

17  CALL  FA. TGT. ERROR (TYPE ( ID. FO) ) YIELDING  ERR.l 

18  CALL  FA. TGT. ERROR ( TYPE ( ID. FO) ) YIELDING  ERR. 2 

19  CALL  FA. TGT. ERROR ( TYPE ( I D. FO) ) YIELDING  ERR. 3 

20  CALL  FA. TGT. ERROR (TY PE ( ID. FO) ) YIELDING  ERR. 4 

21  LET  X.l  » X.CUR4(ID. MISSION)  + (ERR.l  + ERR.2)/2 

22  LET  Y.l  = Y.CUR4(ID. MISSION)  + (ERR. 3 + ERR.4)/2 

23  LET  X.2  = X.CUR4(ID. MISSION)  + SPEED( ID. MISSION)  * COS. 

(DIRECTION(ID. MISSION)) 

24  * 20 

25  LET  Y.2  = Y.CUR4(ID. MISSION)  + SPEED( ID. MISSION)  * SIN. 

(DIRECTION(ID. MISSION)) 

26  * 20 


, ERR.l , 


F 


F 
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27  CALL  FA. TGT. ERROR (TYPE ( ID. FO) ) YIELDING  ERR. 5 

28  CALL  FA . TGT . ERROR ( TYPE ( I D . FO ) ) YIELDING  ERR  6 

29  CALL  FA. TGT. ERROR ( TYPE ( ID. FO) ) YIELDING  ERR. 7 

30  CALL  FA. TGT. ERROR ( TYPE ( ID. FO) ) YIELDING  ERR. 8 

31  LET  X.3  * X.2  + (ERR. 5 + ERR.6)/2 

32  LET  Y. 3 * Y.2  + (ERR. 7 + ERR.8)/2 

33  CALL  DI ST( X. 1 , Y.2,  X.3,  Y.3)  YIELDING  DISTANCE 

34  LET  XX  = X.3  - X.l 

35  LET  YY  = Y.3  - Y.l 

36  LET  DIR. APPARENT(ID. MISSION)  = ARCTAN. F( YY ,XX) 

37  LET  SPD„ APPARENT ( ID .MISS ION ) = DISTANCE/20 

38  'NEXT' 

39  LET  X. FUTURE. LOC( ID. MISSION)  = X.l  + SPD. APPARENT( ID. MISSION) 

* COS.F 

40  (DIR. APPARENT(ID. MISSION)  * DEL. TIME 

41  LET  Y. FUTURE. LOC( ID. MISSION)  = Y.l  + SPD. APPARENT( ID. MISSION ) 

* SIN. F 

42  (DIR. APPARENT(ID. MISSION)  * DEL. TIME 

43  RETURN  END 

Lines  1-5  define  the  routine  and  the  local  variables. 

Line  6 updates  the  actual  location  of  the  cluster. 

Lines  7-10  check  if  there  are  any  vehicles  left  alive  in  the  cluster. 
If  none,  an  error  code  is  established. 

Lines  11-15  check  if  the  routine  was  called  from  the  FFE  situation. 

If  it  was,  the  control  transfers  to  line  38. 

Line  16  sets  the  value  of  ID.FO. 

Lines  17-22  call  routine  FA. TGT. ERROR  for  errors  in  sightings  and 
apply  the  results  to  the  first  position. 
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Lines  23-26  determine  the  estimated  relative  position  of  the  cluster 


as  projected  20  seconds  from  the  current  time. 

Lines  27-32  call  routine  FA. TGT. ERROR  for  additional  errors  in  sight- 
ings and  apply  the  results  to  the  second  position. 

Lines  33-37  calculate  the  mean  speed  and  direction  of  the  cluster 
based  on  the  two  sightings.  These  values  update  attributes  of  ID. MISSION. 

Line  38  is  a continuation  line. 

Lines  39-42  extrapolate  the  future  position  of  the  cluster  based  on 
the  apparent  speed  and  direction  of  the  cluster  for  the  input  value  of 


Line  43  returns  control  to  the  calling  event. 

25.  Event  MRL. IMPACT 
Descri ption 

Event  MRL. IMPACT  simulates  the  effects  of  a MRL  volley  in 
the  vicinity  of  the  first  TOW  team  in  team  B that  k-kills  a Red 
tank.  The  probabil i ty  of  a k-kill,  m-kill,  and  f-kill  are  cal- 
culated and  routine  ATRIT  is  called  to  assess  damage.  Event 
MRL. IMPACT  is  scheduled  by  event  IMPACT,  It  calls  routines  LOC, 
ATRIT  and  TALLY. HIT. STATE, 

Local  Variables 

ID.BTRY  - An  integer  variable  representing  the  F0 . 

TYPE. AMMO  - An  integer  variable  representing  the  type  of 
ammuni  ty  fired. 

RED. 2. CONSTANT  - An  integer  variable  equal  to  a conversion 
factor  to  be  used  when  calculating  the  effects  on  an  exposed 
Dragon  gunner. 

X.LOC  - A real  variable  equal  to  the  X coordinate  of  the 


target. 
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Y.lOC  - A real  variable  equal  to  the  Y coordinate  of  the 
target. 

PI  - A real  variable  equal  to  the  probability  of  a k-kill. 

P2  - A real  variable  equal  to  the  probability  of  an  m- kill. 

P3  - A real  variable  equal  to  the  probability  of  an  f-kill. 

Coding  and  Brief  Explanation 

1 UPON  riRL.IMPACT(X.LOC, Y.LOC) 

2 DEFINE  ID. BTRY, TYPE .AMMO  AND  RED. 2. CONSTANT  AS  INTEGER  VARIABLES 

3 DEFINE  PI , P2 ,P3 , X.LOC  AND  Y.LOC  AS  REAL  VARIABLES 

4 LET  TYPE. AMMO  =■  2 

5 LET  ID. BTRY  * II 

6 LET  NUM. H E. LEFT ( ID. BTRY)  = NUM.HE.LEFT( ID. BTRY ) - NUM. GUNS ( I D. BTRY  ) 

7 LET  NO.MSNS.FIRED( ID. BTRY ) - NO.MSNS. FIRED( ID. BTRY)  + 1 

8 FOR  EACH  TANK  IN  3LUE. ALIVE,  DO 

9 CALL  LOC(TANK) 

10  IF  ABS . F( X. CURRENT (TANK)  - X.LOC)  LT  200 

11  THEN  IF  A3S. F( Y. CURRENT (TANK)  - Y.LOC)  LT  200 

12  IF  DEBUG  GE  1 

13  PRINT  l LINE  WITH  NAME(TANK)  THUS 

MRL  IMPACT  TANK  4 *++*  WAS  FIRED  ON 

14  ALWAYS 

15  LET  RED. 2. CONSTANT  =>  1 

16  IF  WPN. TYPE (TANK)  = 6 

17  THEN  IF  DEFNUM( TANK)  » 3 

18  LET  RED. 2. CONSTANT  = 7 

19  ALWAYS 

20  LET  PI  > ARTY. PK . TABLE ( CAL  I BER ( ID. BTRY), 

21  WPN.TYPE(TANK) .TYPE. AMMO, 3)  ♦ RED. 1 .CONSTANT 
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* RED. 2. CONSTANT 


23  LET  P2  =■  ARTY.PK.TABLE(CALIBER(ID.BTRY), 

24  WPN. TYPE (TANK) .TYPE. AMMO, 2)  * RED. 1 .CONSTANT 

25  * RED. 2. CONSTANT 

26  LET  P3  = ARTY. PK. TABLE (CALIBER) ( ID. BTRY ) , 

27  WPN. TYPE(TANK), TYPE. AMMO. 1)  * RED. 1 .CONSTANT 

28  * RED. 2. CONSTANT 

29  CALL  ATRIT(TANK,TANK,P1 , P2.P3.1) 

30  CALL  TALLY. HIT. STATE(TANK, DAMAGE. NUM) 

31  IF  DAMAGE. NUM  =*  5 

32  LET  ALIVE. DEAD(TANK)  =*  1 

33  LET  HIT.STATE(TANK)  - "FA. 2" 

34  LET  FOE  (TANK)  =■  0 

35  IF  FA(TANK)  NE  0 

36  SCHEDULE  AN  ALT.FO(TANK)  IN  100  UNITS 

37  ALWAYS 

38  ALWAYS 

39  START  NEW  LINE 

40  WRITE 

41  NCASE,  GUNTUBE,  TYPE. AMMO,  NAME(TANK) , 

42  CALIBER(IO. BTRY). TIME. V, 

43  X.CURRENT(TANK) ,Y. CURRENT (TANK) ,Z. CURRENT (TANK) .SPD(TANK) , 

44  DEFNUM(TANK), 

45  FKILL(TANK) , MFKILL (TANK) , 

46  KKILL(TANK) .K.HIT(TANK) , FIRED. AT(TANK) 

47  AND  NUM.HIT(TANK)  AS 

48  I 2,1  3,  "ARTY" ,S  8, 

49  3 I 4,  I 5,  S 20.  S 7,  3 I 5,  D(4,l),  I 3,  S 11, 
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50 


S 1.  A 4,  2 0(5,2).  : I 5 I 3 


51  ALWAYS 

52  LOOP 

53  RETURN  END 

Lines  1-3  define  the  event  and  the  local  variables. 

Line  4 defines  the  type  of  ammunition. 

Line  5 defines  the  firing  unit. 

Lines  5-7  update  the  ammunition  count  and  the  number  of  missions 
fi  red. 

Lines  3-11  screen  for  vehicles  that  He  within  the  MRL  volley's 
effects  pattern. 

Lines  12-13  are  a print  option. 

Lines  15-13  define  a conversion  factor  for  use  in  determining  effects 
on  an  exposed  Dragon  gunner. 

Lines  20-28  calculate  the  probability  of  different  levels  of  damage. 
Lines  29-30  assess  damage  and  call  bookkeeping  routine. 

Lines  31-34  update  attributes  if  the  Slue  vehicle  is  killed. 

Lines  35-37  schedule  a search  for  substitute  F0  if  F0  k-killed. 

Lines  39-50  print  out  damage  information. 

Line  53  returns  control  to  the  system  timer. 

26.  Routine  PREPLANNED 
Descri ption 

Routine  PREPLANNED  generates  a table  of  rectangle  locations 
for  use  in  the  Red  planned  fires.  The  values  are  stored  in  the 
array  called  RED. PLANNED  FIRES  with  three  subscripts,  'he  first 
subscript  indicatesthe  iteration  value.  The  second  subscript 
indicates  the  following:  1-  X coordinate  of  the  upper  left  corner 
of  the  rectangle,  2-  Y coordinate  of  the  upper  left  corner  of  the 
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rectangle,  3-  X coordinate  of  the  lower  right  corner  of  the 
rectangle,  and  4-  Y coordinate  of  the  lower  right  corner  of  the 
rectangle.  The  third  subscript  indicates  the  Red  battery 
identification  number,  starting  with  the  value  of  1 for  the 
first  Red  battery  created.  Routine  PREPLANNED  is  called  by 
routine  FA. 1. MAIN. 

Local  Variables 

A - An  integer  variable  representing  the  number  of  Red 
batteries  whose  fires  are  being  planned. 

B - An  integer  variable  representing  the  value  of  the  upper- 
most X coordinate  in  the  rectangle. 

C - An  integer  variable  representing  the  change  in  X co- 
ordinate per  shift  in  fires. 

D - An  integer  variable  representing  the  uppermost  Y co- 
ordinate in  the  rectangle. 

E - An  integer  variable  representing  the  change  in  Y co- 
ordinate per  shift  in  fires. 

F - An  integer  variable  representing  the  value  of  the  last 
Red  battery  whose  fires  were  planned  prior  to  this  routine  being 
called. 

I - An  integer  variable  representing  the  row  number  of  the 
target  in  array. 

J - An  integer  variable  used  to  construct  the  coordinate 
array. 

K - An  integer  variable  used  to  construct  the  coordinate 
array. 

L - An  integer  variable  representing  the  third  dimension 
value  in  the  array  used  to  construct  the  coordinates. 
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1 ROUTINE  PREPlANNED(A,S,C,0,E 

2 DEFINE  A,3,C,D,E,FtI,J,K  AND 

3 LET  J =»  0 

4 LET  K * 0 

5 LET  L * F+l  TO  A*F,  DO 

6 FOR  I-l  TO  29  BY  2,  DO 

7 LET  J«J+l 

3 LET  RED. PLANNED. FIRE3(I,1,L) 
9 LET  RED. PLANNED. FIRES ( I ,2,L) 

10  LET  RED. PLANNED. FIRES(I, 3, L) 

11  LET  RED. PLANNED. FIRES(I, 4, L) 

12  LOOP 

13  FOR  I = 2 TO  30  BY  2,  DO 

14  LET  < = Kd 

15  LET  RED. PLANNED. FI  RES ( 1 , 1 .L) 

16  LET  RED. PLANNED. FIRE$(I, 2, L) 

17  LET  RED. PLANNED. FI  RES ( 1 ,3,L) 
13  LET  RED. PLANNED. FIRESd. 4, L) 

19  LOOP 

20  LET  J * 0 

21  LET  K =■  0 

22  REPEAT 

23  RETURN 
Lines  1-2 

Lines  3-22  construct 
Line  23  returns  control 


AS  INTEGER  VARIABLES 


B +( ( L-F- 1 ) *6 ) 

0 -Jd 

B ♦ C ♦ ( (L- F- 1 ) *6 ) 

RED. PLANNED. FIRES ( 1 . 2. 0 -E 


B C {(L-F-l)*6) 

D - Kd 

3 ♦ (2*C)  * ( (L-F- 1 ) *6 ) 

RED. PLANNED. FIRESd, 2, L)  -E 


END 

define  the  routine  and  local  variables. 

he  array  of  coordinate  values, 
to  the  calling  routine. 


Coding  and  Brief  Explanation 

,F) 
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27.  Routine  POSITION .UPDATE 
Oescri ption 

Routine  POSITION. UPDATE  updates  the  position  of  the  centroid 
of  a given  cluster.  First,  it  updates  the  location  of  all  TANKS 
in  the  cluster  and  calculates  the  mean  X coordinate,  Y coordinate, 
and  speed.  This  event  is  called  only  during  the  adjustment  phase 
of  a mission.  Event  POSITION. UPDATE  is  called  by  routines  ERROR  and 
NEW. LOCATION. 

Local  Variables 

ID. MISSION  - An  integer  variable  representing  the  mission 
that  is  being  fired, 

ID, FO  - An  integer  variable  representing  the  FO  firing  on 
the  cluster. 

TANK  - An  integer  variable  representing  the  vehicle  being 
processed. 

X. BAR  - A real  variable  equal  to  the  mean  of  the  X coordinates. 

Y. BAR  - A real  variable  equal  to  the  mean  of  the  Y coordinates. 

SPD.3AR  - A real  variable  equal  to  the  mean  of  the  speeds. 

Coding  and  Brief  Explanation 

1 ROUTINE  POSITION. UP0ATE(ID. MISSION, A) 

2 DEFINE  ID. FO, ID. MISSION, TANK  AND  A AS  INTEGER  VARIABLES 

3 DEFINE  Y.BAR, X.BAR  AND  SPD.BAR  AS  REAL  VARIABLES 

4 LET  ID. FO  = FIST( ID. MISSION) 

5 FOR  EACH  TANK  IN  RED. ALIVE,  DO 

6 IF  C. NUMBER. ARRAY(NAME(TANK)-3.NUM. ALIVE,  I D . F0,STATE4( ID. FO) ) = 

7 NO .CLUSTER ( I Do  MISS  ION) 

8 CALL  LOC(TANK) 

9 COMPUTE  X.BAR  AS  THE  MEAN  OF  X.CURRENT(TANK) 
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10  COMPUTE  Y.BAR  AS  THE  MEAN  OF  Y . CURRENT( TANK) 

11  COMPUTE  SPD.BAR  AS  THE  MEAN  OF  SPD(TANK) 

12  ALWAYS 


13 

LOOP 

14 

LET  X.CUR4(ID. MISSION) 

* X.BAR 

15 

LET  Y.CUR4(ID. MISSION) 

= Y . BAR 

16 

LET  SPEED(ID. MISSION) 

= SPD.BAR 

17 

RETURN  END 

Lines  1-3  define  the  routine  and  the  local  variables. 

Line  4 defines  the  variable  ID.FO. 

Lines  5-7  search  for  each  vehicle  whose  cluster  identification  in 
the  array  called  C. NUMBER. ARRAY  equals  that  of  the  cluster  being  fired 
upon. 

Line  S updates  the  vehicle  location. 

Lines  9-12  compute  the  appropriate  mean  of  all  live  vehicles  in  the 
cluster. 

Lines  14-16  update  the  appropriate  attributes  of  the  cluster. 

Line  17  returns  control  to  the  calling  routine. 

23.  Event  ALT. FO 
Oescri ption 

Event  ALT.FO  attempts  to  replace  an  FO  who  has  had  his  vehicle 
k-kil led.  The  event  checks  each  platoon  leader  in  the  FO's  company. 
The  first  live  platoon  leader  is  given  the  FO's  duties.  If  none 
are  alive,  the  duties  are  not  passed  on.  This  event  is  scheduled 
by  event  IMPACT,  event  RED. PLANNED  FIRES,  and  event  MRL. IMPACT. 

Local  Variables 

A - An  integer  variable  representing  the  vehicle  in  which  the 
FO  was  riding  when  he  was  killed. 
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M - An  integer  variable  used  to  cut  off  the  search  through 
the  set  BLUE. ALIVE  after  first  live  FO  replacement  is  found. 
Coding  and  Brief  Explanation 

1 UPON  ALT.FO(A) 

2 DEFINE  A AND  M AS  INTEGER  VARIABLES 

3 FOR  EACH  TANK  IN  BLUE. ALIVE  WITH  CO(TAN.K)  = C0(A) 

4 AND  TANK  = PLTLDR(TANK)  UNTIL  M = 1,  DO 

5 LET  FA(TANK)  = FA(A) 

6 LET  TYPE( FA(A) ) = 2 

7 LET  POINTING. TO ( FA ( A ) ) = POINTER(TANK) 

8 LET  M = 1 

9 LOOP 

10  RETURN  END 

Lines  1-2  define  the  event  and  the  local  variables. 

Lines  3-4  search  for  the  first  live  platoon  leader  in  the  FO's 
company. 

Lines  5-7  transfer  the  old  FO's  attributes  to  the  new  FO. 

Line  10  returns  control  to  the  system  timer. 

29.  Event  SHUT. OFF 
Descri pti on 

Event  SHUT. OFF  simulates  the  termination  of  the  Red  planned 
fires  as  the  Red  forces  close  onto  their  objectives.  A global 
variable,  RED. OFF,  is  given  the  value  of  one  when  this  event  is 
processed.  Event  SHUT. OFF  is  scheduled  by  event  STEP. TIME. 
Coding  and  Brief  Explanation 

1 UPON  SHUT. OFF 

2 LET  RED. OFF  = 1 

3 RETURN  END 


Line  1 defines  the  event. 


Line  2 changes  the  value  of  the  global  variable  RED. OFF. 

Line  3 returns  control  to  the  system  timer. 

C.  STAR  ROUTINES  AND  EVENTS  THAT  REQUIRED  MODIFICATION 

The  following  modifications  to  the  STAR  model  are  required  to  facili- 
tate the  addition  of  the  FA  module.  Since  the  STAR  model  is  very  dynamic 
in  nature,  the  line  numbers  and  actual  code  alterations  are  correct  only 
for  the  current  version  of  STAR.  The  reason  for  the  modification  is 
specific  enough  to  allow  the  user  to  make  the  appropriate  modification 
to  the  user's  version  of  the  STAR  model.  Only  local  variables  that  are 
required  for  the  modification  are  described. 

1.  PREAMBLE 

The  integer  attribute,  FA.  was  added  to  the  attribute  list  of  the 
temporary  entity,  TANK.  It  indicated  that  the  vehicle  belonged  to  the  FO; 
otherwise  its  value  was  zero.  A number  of  the  following  modifications 
check  this  attribute  when  preventing  the  FO  from  performing  inappropriate 
acti vi ties . 

2.  Routine  RED. CREATE 

After  Red  units  are  created,  the  array  called  C. NUMBER. ARRAY  is 
dimensioned  dynamically.  The  dimension  increases  as  the  additional  forces 
are  created. 

Coding  and  Brief  Explanation 

37  IF  TIME. V LT  120  JUMP  AHEAD  ELSE 

38  RELEASE  C. NUMBER. ARRAY (*,*,*) 

39  HERE 

40  RESERVE  C. NUMBER. ARRAY(*,*,*)  AS  BC. COUNT  BY  N.FO  BY 

41  MAX. NUMBER. OF. MISS  IONS. PER. FO 
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Lines  37-39  release  the  array  only  if  it  had  been  previously  reserved. 
(Time  120  is  the  second  time  Red  forces  are  created.  This  was  specific 
for  this  given  scenario  and  set  of  runs.) 

Lines  40-41  reserve  the  array  according  to  the  total  Red  forces  that 
have  been  created. 

3.  Routine  BASIC. LOAD 

Routine  BASIC. LOAD  provides  ammunition  to  the  Blue  forces.  When 
the  FO's  vehicle  (an  ITV  with  WPN.TYPE(TANK)  = 4)  is  being  armed,  a filter 
was  applied  that  skipped  the  ammunition  supply  and  changed  the  value  of 
the  variable  OP.RNG  to  equal  the  FO’s  maximum  range  for  locating  targets. 

Local  Variable 

A - An  integer  variable  representing  the  FO's  vehicle. 

Code 

17  IF  NAME (A)  = 3 OR  NAME(A)  = 78  OR  NAME (A)  = 79 

LET  OP.RANG(A)  = 3800  JUMP  AHEAD  ELSE 

19  HERE 

4.  Event  TARGET. SELECT 

Event  TARGET. SELECT  simulated  the  procedures  used  in  selecting 
a direct  fire  target.  A filter  was  added  that  prevented  the  FO  from 
selecting  direct  fire  targets  (by  returning  control  to  the  system  timer). 

5.  Event  IMPACT 

Routine  IMPACT  simulates  a direct  fire  round  arriving  at  the 
target.  Event  ALT.FO  is  scheduled  if  the  FO's  vehicle  is  k-killed.  When 
the  first  Red  tank  is  k-killed  by  a TOW  fired  from  team  3's  position,  a 
MRL. IMPACT  is  scheduled. 

Local  Variables 

ID  - An  integer  variable  representing  the  vehicle  that  was 


A - An  integer  variable  representing  the  vehicle  that  did 
the  firing. 

Coding  and  Brief  Explanation 

35  IF  FA(ID)  NE  0 

36  SCHEDULE  AN  ALT. FO ( ID)  IN  100  UNITS  ALWAYS 

37  HERE 

33  CALL  TALLY. HIT. STATE(ID, DAMAGE. NUM) 

39  "DECISION  RULE  FOR  REQUESTING  MRL 

40  IF  CO ( A ) = 2 AND  ( WPN . TYPE ( A ) =3  OR  WPN.TYPE(A)=4)  AND  ALIVE. DEAD( ID) 

41  PROJO(A) =1  AND  WPN.TYPE( ID) -7 

42  THEN  IF  TOW.KOUNT  = 0 

43  LET  TOW.KOUNT  = 1 

44  SCHEDULE  AN  MRL. IMPACT( X . CURRENT( A ) , Y.CURRENT(A) ) IN  300  UNITS 

45  ALWAYS 

Lines  35-36  schedule  the  search  for  the  FO's  replacement. 

Lines  40-41  check  whether  this  impact  was  a TOW  fired  from  team  B 
whether  it  killed  a Red  tank. 

Lines  42-45  schedule  a volley  from  the  MRL  battery  the  first  time 
that  a TOW  was  fired  from  team  3 and  killed  a Red  tank. 

6.  Event  STOP. SIMULATION 

Event  STOP. SIMULATION  prints  the  final  statistics  of  the  battle. 
Attributes  of  all  the  FA  entities  were  printed. 

Code 

20  START  NEW  PAGE 

21  LIST  ATTRIBUTES  OF  EVERY  FO 

22  LIST  ATTRIBUTES  OF  EVERY  BATTERY 

23  LIST  ATTRIBUTES  OF  EVERY  FDC 

24  LIST  ATTRIBUTES  OF  EVERY  MISSION  IN  MSN. QUEUE 
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25  LIST  ATTRIBUTES  OF  EVERY  MISSION  IN  HOLDING. MSNS 


7.  Routine  LIST. UPDATE 

Routine  LIST. UPDATE  updates  the  target  list  of  a vehicle  and 
schedules  the  selection  of  a target.  A filter  was  added  that  insured 
that  the  FO  did  not  select  a direct  fire  target  (by  returning  control 
to  the  calling  event) . 

3.  Event  STEP. TIME 

Event  STEP. TIME  schedules  detections  for  Red  and  Blue  elements. 

It  releases  a vehicle's  target  list  if  that  vehicle  is  in  or  going  into 
full  defilade  (DEFNUM  - 1),  simulating  the  tank  commander's  loss  of 
line  of  sight  to  his  targets.  If  the  FO's  vehicle  is  in  defilade,  it 
is  reasonable  to  assume  that  the  FO  would  still  be  involved  in  target 
acquisition  and  not  forget  his  targets.  A filter  was  added  that  ensured 
that  the  FO's  target  list  was  not  released.  Another  modification  was 
added  that  checked  the  distance  between  the  two  vehicles  to  determine  if 
the  opposing  vehicle  is  within  1500  meters.  If  so,  the  Red  planned  fires 
were  scheduled  to  be  terminated  in  100  seconds. 

Local  Variables 

A - An  integer  variable  representing  tne  vehicle  being 
checked. 

R - A real  variable  equal  to  the  range  between  the  two 
vehicles  (one  Red  and  one  31ue). 

Coding  and  Brief  Explanation 
12  IF  FA ( A ) NE  (0)  GO  TO  LIST1  ELSE 
20  ' LIST1 ' 

39  IF  R LE  1500  SCHEDULE  A SHUT. OFF  IN  100  UNITS  ALWAYS 
Line  12  transfers  control  around  code  that  releases  the  vehicles  list 
when  in  full  defilade. 
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Line  39  checks  range  between  opposing  vehicles.  If  less  than  1500, 
a termination  of  Red  fires  is  scheduled. 

9.  Event  DETECT 

Event  DETECT  simulates  the  detection  of  a vehicle.  If  a detection 
is  scheduled  and  the  detected  or  detecting  vehicle  was  in  full  defilade, 
the  detection  was  not  allowed  to  happen.  A filter  was  added  to  ensure 
that  the  F0  continued  to  detect  targets  even  while  in  full  defilade  (by 
transferring  control  around  the  releasing  code).  If  the  FO's  vehicle  is 
in  defilade,  it  is  reasonable  to  assume  that  the  FO  would  still  be  in- 
volved in  target  acquisition.  One  of  the  members  of  the  fire  support  team 
would  dismount  the  vehicle  and  move  to  high  ground  in  order  to  be  able  to 
observe . 


VI.  A SIMULATED  FIRE  MISSION 

The  direct  support  artillery  firing  unit  provides  an  excellent  example 
of  the  Field  Artillery  system  and  how  it  operates.  This  chapter  presents 
one  representative  mission  from  a production  run  of  the  current  STAR  model 
with  the  FA  module  added.  A mission  fired  by  a four  gun  firing  unit  of 
a 155mm  Ml 00  howitzer  battery  (armored  division)  was  simulated.  Figures 
5-17  demonstrate  the  effects  of  the  mission  along  with  the  detailed  computer 
output  available  with  the  DEBUG  option  set  equal  to  5.  The  output  follows 
each  phase  of  the  mission,  giving  details  that  were  used  to  make  the  plots, 
and  the  time  of  each  event's  occurrence.  Battle  time  is  shown  in  seconds 
from  the  beginning  of  the  simulation. 

The  battery  was  in  direct  support  of  a battal ion-s i zed  task  force  that 
had  three  FOs.  The  FO  with  company  team  B considered  all  vehicles  that 
he  had  detected  prior  to  clustering.  Figure  5 shows  the  plot  of  these 
vehicles.  The  FO  then  clustered  all  the  vehicles  that  he  had  detected  as 
of  battle  time  922.  Figure  6 shows  the  plot  of  the  FO's  position  and  the 
vehicles  after  they  were  placed  in  clusters.  Figure  7 is  the  computer 
output  that  gives  the  following  information:  Cluster  number  (as  indicated 
in  Figure  6),  priority,  number  of  vehicles  in  cluster,  the  X and  Y coordi- 
nates of  the  cluster  centroid,  the  speed  and  direction  of  the  cluster  cen- 
troid, and  the  X and  Y coordinates  of  the  first  vehicle  placed  in  the  clus- 
ter. The  FO  deci ded  to  adjus t fire  on  cluster  number  1 (the  cluster  with  the 
highest  priority)  and  to  use  DPICM  ammunition.  The  FO  called  for  fire  over 
his  radio  to  the  second  firing  unit  FDC.  His  call  for  fire  included  the 
location  of  the  target,  its  description,  and  requested  a method  of  engage- 
ment and  a method  of  fire  and  control.  The  FDO  accepted  the  FO's  request  and 
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Figure  6.  Forward  observer's  cluster  results. 
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Figure  9.  Computer  Output:  Time  951-1006. 
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Figure  10.  First  volley  in  FFE  phase 


rjr  i rr 
DC  l U i i I 


FO  3 ( 10  ) 

FIRING  GUNS 

TIME* 

1040. 

FO  3 ( 10  ) 

BTRY  2 VOLLEY  1 

ARTY  IMPACT 

TIME* 

1063. 

MISSION  NUMBER 
TIME 

CLUSTER  CENTER 
FUTURE  LOC 

MPI  LOCATION 
LOCATION  OF  RD* 

1 

BTRY  2 VOLLEYS 

LEFT  3 

10 

1063. 

2594. 

2519. 

2562. 

2695. 

7047. 
6921  . 
5909. 
6952. 

LOCATION  OF  RD* 

2 

2553. 

6369. 

LOCATION  OF  RD* 

3 

i 

2543. 

6436  . 

LOCATION  OF  RD* 

4 

2463. 

6919. 

NUMBER  OF  TANKS 

[N 

RECT 

7 

LOCATION  OF  TANK 

d 

36 

2461  . 

6983. 

LOCATION  OF  TANK 

* 

93 

2675. 

6898. 

LOCATION  OF  TANK 

4 

99 

2747. 

6329. 

LOCATION  OF  TANK 

4 

123 

2576. 

'042. 

LOCATION  OF  TANK 

4 

132 

26 12. 

7064. 

LOCATION  OF  TANK 

4 

133 

2671  . 

7028. 

LOCATION  OF  TANK 

4 

1 34 

2761  . 

691 1 . 

NUMBER  OF  TANKS 

IN 

CLUSTER 

LOCATION  OF  TANK 

# 

99 

2747. 

6829. 

LOCATION  OF  TANK 

* 

120 

2370. 

..  . 

LOCATION  OF  TANK 

* 

121 

2419. 

LOCATION  OF  TANK 

4 

123 

25  76 . 

'042 ! 

LOCATION  OF  TANK 

d 

132 

2612. 

'064. 

LOCATION  OF  TANK 

4 

133 

2671  . 

7028. 

LOCATION  OF  TANK 

* 

1 34 

2761  . 

691 1 . 

TANK  * 36  WAS  FIRED  ON 

RD*  4 LANDED  22.  METERS  cROM  TANK*  36 

TANK  * 98  WAS  FIRED  ON 

TANK  * 99  WAS  FIRED  ON 

TANK  * 123  WAS  FIRED  ON 

TANK  f 132  WAS  FIRED  ON 

TANK  * 133  WAS  FIRED  ON 

TANK  * 134  WAS  FIRED  ON 

FO  3 ( 10  ) FIRING  GUNS  TIME3  1064. 

3TRY  2 VOLLEY  2 


Figure  11.  Computer  Output:  Time  1040-1064 
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Figure  14.  Third  volley  in  FFE  phase. 
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Figure  15.  Computer  Output:  Time  1108-1109. 
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Figure  17.  Computer  Output:  Time  1132-1142. 
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the  battery  computer  system  (BCS)  provided  a solution  to  the  ballistic 
problem  of  getting  the  rounds  to  land  on  the  target.  The  firing  data  for 
the  first  adjusting  round  was  sent  to  a howitzer  section.  The  section 
chief  positioned  his  howitzer  for  direction  and  elevation  in  accordance 
with  the  firing  data.  The  specified  ammunition,  DPICM,  was  prepared, 
loaded,  and  fired  at  battle  time  983.  The  FO  located  the  impact  point  of 
the  adjusting  round  (Figure  8).  Since  the  round  landed  within  300  meters 
of  the  cluster  centroid  (radial  error  to  182  meters  as  indicated  on  Figure 
9),  the  FO  entered  the  fire  for  effect  phase  FFE)  when  he  sent  his  first 
corrections  to  the  FDC  (at  battle  time  1006).  All  weapons  in  the  firing 
unit  then  fired  at  their  maximum  rate  of  fire  for  four  volleys.  Figures 
10  and  11  give  the  plot  of  the  first  volley  and  the  computer  output  for 
battle  time  1040-1064.  Figures  13-13  give  the  plot  of  the  second  volley 
and  the  computer  output  for  battle  time  1085-1087.  Figures  14-15  give  the 
plot  of  the  third  volley  and  the  computer  output  for  battle  time  1108-1109. 
Figures  16-17  give  the  plot  of  the  fourth  volley  and  the  computer  output 
for  battle  time  1132-1142.  The  F0  observed  the  effects  and  ended  the 
mission  at  battle  time  11 42  (as  i ndicated  on  Figure  17). 


i 

! 

1 

i 


154 


VII.  EXTENSIONS  OF  THE  BATTALION  MODEL 


Two  major  tasks  in  any  modeling  effort  are  deciding  which  functions 
to  model  and  determining  the  subsequent  level  of  detail.  These  decisions 
are  a function  of  the  intended  application  of  the  model  and  the  resources 
available.  When  new  applications  arise  and  additional  resources  are 
available,  the  model  can  be  modi fi ed  and  extended  as  desired.  A number  of 
enhancements  to  the  Field  Artillery  model  merit  consi deration  and  are 
discussed  in  this  chapter. 

A.  TARGET  ACQUISITION 

1)  A very  simple  cluster  priority  scheme  was  used.  A more  elaborate 
weighting  scheme  could  be  developed  that  should  consider,  at  the  least, 
the  type  of  vehicle,  the  current  status  of  the  battle,  and  a shifting  of 
priority  for  range  based  on  range  bands 

2)  The  FO  used  adjustment  procedures  that  estimated  the  time  duration 
between  his  call  for  fire  and  the  round/volley  impact.  An  alternative 
method  would  be  to  use  time  on  target  (TOT)  procedures,  i e.  the  FO  tells 
the  FDC  the  exact  time  that  he  wants  the  round/volley  to  land.  One  vari- 
able in  the  extrapolation  would  be  eliminated  at  the  expense  of  increasing 
the  duration  of  the  mission. 

3)  Another  method  of  observed  fire  is  to  fire  for  effect  without  prior 
adjustment.  The  resulting  miss  distance  might  prove  to  be  acceptable  in 
light  of  the  quicker  servicing  of  the  target  and  mere  efficient  utilization 
of  a scarce  resource  (the  firing  unit). 

4)  Targets  that  are  acquired  from  assets  not  organic  to  the  batterv 
level  could  be  externally  generated  after  a suitable  delay  that  simulates 
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the  time  of  processing  and  the  communication  of  the  information  to  the 
firing  unit., 

B.  COMMAND  AND  CONTROL 

The  current  model  does  not  consider  the  effectiveness  of  munitions 
and  the  massing  of  fires  in  determining  the  number  of  volleys  to  fire 
in  the  FFE  phase.  An  algorithm  could  be  devised  that  would  determine 
the  best  method  of  engagement  (e.g.,  how  many  units  to  fire  and  how  many 
volleys  to  fire)  to  achieve  a desired  level  of  effectiveness  (commander's 
gui dance) . 

C.  AMMUNITION 

1)  The  use  of  cannon  launched  guided  projectiles  (CLOP)  was  not 
modeled.  An  excellent  extension  would  be  to  model  such  a capability, 
using  a two  gun  platoon  from  one  of  the  155mm  firing  units.  External  to 
the  model,  visibility  diagrams  would  be  made  of  the  area  on  which  the  Red 
units  would  advance.  The  areas  of  uninterrupted  visibility  would  be 
used  to  select  proper  target  areas  (called  footprints)  in  which  the  FO 
may  attack  using  CLGP.  Before  he  clusters,  the  FO  would  consider  the 
future  areas  in  which  he  would  have  line  of  sight  of  enemy  vehicles  for 

at  least  15  seconds.  After  choosing  the  cluster  with  the  highest  priority 
of  those  which  would  move  through  one  of  the  footprints,  the  FO  would 
request  that  some  number  of  CLGPs  be  fired  into  that  footprint. 

2)  The  use  of  Field  Artillery  delivered  mines  would  assist  in  disrupt 
i ng  enemy  movement  and/or  destroying  vehicles.  The  effects  pattern  would 
be  predetermined.  When  the  volley  impacts,  the  effectiveness  can  be  deter 
mined  from  the  mean  point  of  impact  of  the  volley.  As  enemy  vehicles 
enter  the  area,  an  assessment  of  the  damage  due  to  mines  can  be  made. 


3)  Artillery  delivered  smoke  can  be  fired  in  support  of  both  offen- 
sive and  defensive  operations.  A smoke  module  for  the  STAR  model  is 
under  current  development.  When  a smoke  round  impacts,  the  smoke  module 
would  be  called  to  generate  the  proper  obstruction  and  restriction  of 
visibility  for  some  prescribed  time. 

D.  DAMAGE  ASSESSMENT 

Suppression  was  not  modeled  because  there  is  no  operational  defini- 
tion that  is  generally  accepted  and  therefore  no  data  base  exists.  As  an 
exploratory  alternative,  a parametric  ana'ysis  of  suppression  effects 
could  be  accomplished  in  the  following  manner.  Suppression  could  be 
arbitrarily  defined  (for  armored  targets)  with  the  following  characteris- 
tics: 1)  the  time  period  of  suppression  would  be  from  impact  of  the  first 
round  until  5 seconds  after  the  last  round,  and  2)  tank  crews  would  be 
prevented  from  engaging  with  direct  fire  and  would  lose  all  detections 
duri ng  the  period  of  the  suppression.  The  lethal  area  for  suppression 
would  be  a constant  multiplied  times  the  appropriate  k-kill  lethal  area. 
There  would  be  a radius  of  suppression  effects  within  which  the  time  of 
suppression  would  be  a function  of  the  miss  distance.  As  an  individual 
parameters  (lethal  area  of  suppression  and  effects  on  the  crew)  and  the 
time  function  are  varied,  the  sensitivity  of  the  model  to  these  para- 
meters could  be  examined. 
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VIII.  the  brigade  model 


This  chapter  outlines  the  general  requirements  for  a Field  Artillery 
model  to  support  the  brigade  level  version  of  STAR.  The  major  areas 
addressed  (in  addition  to  those  found  in  the  FA  battalion  model)  are 
resource  allocation,  counterfires,  fire  support  coordination,  additional 
target  acquisition  capabilities,  and  the  movement  of  firing  units.  Only 
the  Blue  organization,  equipment,  and  tactics  will  be  discussed.  The  Red 
force  can  be  modeled  in  a manner  similar  to  the  Blue  force,  dependent 
upon  the  specified  resolution,  scenario,  and  data  base. 

The  ideas  in  this  chapter  are  primarily  the  author's  and  are  tenta- 
tive, not  having  yet  been  modeled.  More  work  and  research  is  requi red 
to  validate  the  concepts  discussed  herein.  The  organizations,  prioriti- 
zations, and  tactics  are  for  purposes  of  illustration  only. 

A.  BLUE  MISSIONS  AND  ORGANIZATIONS 

The  brigade  level  FA  model  should  simulate  the  coordination  of  all  the 
maneuver  commander's  fire  support  assets.  Fire  support  elements  in  the 
brigade  area  that  should  be  modeled  are: 

1 - 81mm  mortar 

2-4.2  inch  mortar 

3 - I55mm  howitzer 

4 - 203mm  howitzer 

5 - General  support  rocket  system  (GSRS) 

6 - A- 10  aircraft  (Air  Force  close  air  support  aircraft) 

7 - Advanced  attack  helicopter  (AAH) 


A 155mm  M109A1  battalion  (six  4-gun  firing  units)  would  be  in  direct  sup- 
port of  the  Blue  maneuver  brigade.  Each  battalion  task  force  within  the 
brigade  would  have  a battalion  fire  support  officer  (Bn  FSO)  and  three  fire 
support  teams  (FIST).  Each  FIST  would  consist  of  either  one  forward  obser- 
ver (armor  configuration)  or  three  forward  observers  (mechanized  infantry 
configuration).  One  battalion  (three  4-gun  firing  units)  of  reinforcing 
artillery  would  bepresent  in  the  brigade  and  respond  to  requests  for  addi- 
tional fires  from  the  OS  battalion.  A battalion  of  C03mm/GSRS  artillery 
would  be  in  the  brigade  area,  with  a tactical  mission  of  general  support 
reinforcing  (GSR).  This  type  of  mission  requires  the  FA  unit  to  furnish 
FA  fires  to  the  division  as  a whole  and  to  reinforce  the  fires  of  the  OS 
battalion  as  a second  priority.  Each  battalion  task  force  would  be  equipped 
with  the  appropriate  number  of  Slmm  and  4.0  inch  mortars,  dependent  upon 
their  configuration.  Close  air  support  assets  would  be  requested  through 
the  tactical  air  control  parties  (TACP)  located  at  battalion  headquarters 
and  at  brigade  headquarters.  The  division  aviation  assets  would  be  requested 
through  the  appropriate  battalion  or  brigade  level  operations  officer. 

B.  RESOURCE  ALLOCATION  AND  THE  COUNTERFIRE  MISSION 

Counterfire  is  the  attack  of  enemy  indirect  weapon  systems,  including 
indirect  fire  weapons  and  target  acquisition  devices.  Counterfire  targets 
would  normally  be  attacked  using  division  ^or  higher  level'  assets,  such 
as  the  GSR  battalion  located  in  the  brigade  area  of  responsibility.  These 
assets  would  fire  almost  exclusively  at  counterfire  targets  . The  following 
priority  scheme  is  suggested  to  be  used  for  counterfire  targets: 

1 - Nuclear  delivery  capable  units. 

2 - Target  acquisition  units. 

3 - Command  and  control  . 


4 - Rocket/missile  artillery. 

5 - Cannon  arti 1 1 ery . 

6 - Air  defense  units. 

7 - Mortars. 

8 - General . 

Attacking  mortars  would  be  a responsibility  of  the  direct  support  and 
reinforcing  artillery  battalions.  The  maneuver  commander  would  decide  if 
and  when  to  use  the  assets  within  the  brigade  for  this  counterfire  function. 

The  modeling  of  the  counterfire  functions  for  the  division  artillery 
should  be  considered  separately  from  the  fires  of  the  brigade.  Using  the 
simplified  network  concept  from  the  FA  battalion  model,  the  GSR  battalion 
(plus  any  other  battalions)  could  easily  be  modeled,  provided  that  a 
priority  scheme  is  developed  to  place  targets  in  the  waiting  queue. 

Each  Blue  fire  unit  would  be  designated  either  a brigade  asset  or  a 
division  artillery  asset  at  the  beginning  of  the  battle,  based  on  the 
scenario  and  the  artillery  organization.  Those  assets  that  are  designated 
counterfire  would  only  fire  counterf i res , while  those  assets  that  are  a 
brigade  asset  would  fire  in  support  of  the  brigade  using  the  brigade's 
priority  scheme  for  targets.  The  resource  allocation  of  these  units  could 
either  be  fixed  or  allowed  to  change  dynamically  during  the  course  of  the 
battle.  For  example,  if  the  brigade  is  withdrawing  or  in  a counterattack , 
the  allocation  could  be  changed. 

C.  TARGET  ACQUISITION 

The  primary  target  acquisition  assets  for  the  FA  brigade  model  would 
be  the  forward  observers,  the  AN/'TPQ  36  radar  (mortar  locating  radar',  the 
AN/TPQ  37  radar  (artillery  locating  radar),  the  airborne  standoff  target 
acquisition  system  (SOTAS),  and  aerial  observers  (AOs)  from  the  division 
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artillery  aviation  section.  The  information  gathered  by  each  of  these 
sources  could  generate  a target  to  be  evaluated  for  attack,  either  by  the 
brigade  fire  support  coordination  system  or  the  division  artillery  counter- 
fire system.  Each  target  so  generated  would  have  the  following 
characteri sti cs : 

1 - Time  target  was  detected. 

2 - Target's  movement  status:  stationary  or  moving. 

3 - Type  of  mission  (categories  are  the  same  as  described  for 

the  brigade's  target  priority  list), 

4 - Location  accuracy  in  terms  of  CEP  (circular  error  probable). 

5 - Preempt  status  - Is  this  mission  important  enough  to  take 

an  asset  away  from  a mission  in  progress? 

6 - Target  type  (XM1,  T72,  I55mm  battery,  etc.). 

The  radars  would  be  modeled  as  the  primary  target  acquisition  capability 
for  those  fire  support  assets  responsible  for  countermortar  and  counter- 
battery fires.  Since  the  AN/TPQ  36  radar  is  designed  to  locate  mortars, 
a data  link  between  the  AN/TPQ  36  radar  and  the  DS  artillery  battalion 
TACFIRE  would  be  established.  A similar  data  link  would  be  established 
between  the  AN/T°Q  37  radar  and  the  GSR  battalion  from  the  division  artil- 
lery's assets. 

Sound  and  flash  bases  would  be  located  in  the  forward  areas  of  the 
brigade  sector.  Their  primary  responsi  bi  1 ity  would  be  to  cue  the  radars 
(tell  them  when  to  turn  on).  The  radars  would  normally  be  i n a standby 
mode,  to  lower  their  vulnerability  to  enemy  acquisition.  The  sequence  of 
actions  for  the  sound  and  flash  bases  and  the  radars  would  be: 

1 - Sound  or  flash  base  senses  that  the  enemy  fired, 

2 - Sound  or  flash  base  communicates  the  information  to  the  radar. 

3 - The  radar  turns  itself  on. 

4 - The  radar  detects  the  enemy  round. 
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5 - The  radar  determines  the  location  of  the  firing  unit. 


6 - The  radar  transmits  the  target  information  to  the  appropriate 
artillery  uni t. 

Actions  1,2, 3, 4,  and  6 would  occur  based  on  probability  distributions. 
Action  5 would  generate  an  error  in  X and  Y coordinates  that  could  be 
applied  to  the  known  firing  unit  location  to  determine  an  apparent  target 
location. 

The  radar  would  have  to  be  sited  considering  line  of  sight,  terrain 
masking,  and  the  technical  limitations  of  the  radar  being  simulated.  The 
model  would  check  the  X-Y  plane  of  the  radar's  detection  envelope  for  the 
actual  enemy  firing  unit  locations.  If  the  firing  unit  was  inside  that 
X-Y  plane,  the  radar  would  be  capable  of  detecting  the  round  that  had  been 
fi red. 

The  SOTAS  device  would  be  installed  in  an  aircraft  and  flown  along  the 
brigade  front.  It  would  be  concerned  with  detecting  moving  targets  to 
the  -ear  of  the  enemey's  front  line  battalions.  The  air  movement  module 
would  'move  the  aircraft  along  a predesignated  flight  path.  The  targets 
acqui red  and  the  location  error  of  each  would  be  a function  of  the  primary 
azimuth  of  the  device  and  a probability  function  that  would  model  the 
SOTAS  detection  rate.  Data  concerning  any  target  that  was  acquired  would 
be  transmitted  to  the  maneuver  brigade  S-2.  After  a specified  delay,  toe 
brigade  SO  would  get  the  information  and  determine  whether  and  now  to 
engage  the  target. 

The  aerial  observers  would  be  modeled  in  a way  similar  to  the  SOTAS, 
except  that  an  airborne  human  observer  detection  routine  would  be  used. 

The  information  on  the  targets  that  were  acquired  would  be  sent  directly 
to  the  DS  battalion  FOC. 


D.  FIRE  SUPPORT  COORDINATION 


Fire  support  planning  and  coordination  are  accomplished  by  the  maneuver 
commander  and  the  fire  support  coordination  officer  at  battalion  and  brigade 
1 evel . 

It  can  be  anticipated  that  the  number  of  targets  acquired  and  available 
to  be  serviced  by  brigade  assets  would  exceed  the  brigade's  target  servic- 
ing capability.  The  maneuver  commander  must  establish  priorities  for  his 
fire  support  assets  to  follow.  An  example  of  priori ti ration  would  be: 


MISSION  TYPE  PRIORITY 

Direct  fire  (suppression)  1 

Air  defense  suppression  2 

Counterfire  (mortars)  3 

Smoke  4 

Command  and  control  5 

FAS CAM  6 

CLGP  7 

Direct  fire  (destruction)  S 

Rear  echelon  - supply  9 

Rear  echelon-assembly  area  10 


Each  target  generated  by  a forward  observer  is  sent  to  the  FIST  chief 
and  monitored  by  the  battalion  FSO.  The  FIST  chief  checks  whether  the 
fire  support  assets  available  at  his  level  (31mm  mortars,  4.2  inch  mortars, 
and  direct  support  artillery)  are  capable  of  furnishing  effective  fire 
support.  The  FIST  chief  checks  his  list  of  assets  for  the  most  effective 
means  of  attacking  the  target.  If  the  fire  support  asset  is  available 
and  the  target  is  within  range,  the  FIST  chief  sends  the  target  data  to 
that  fire  support  asset.  If  the  most  effective  asset  is  not  available, 
the  FIST  chief  searches  for  the  next  best  asset.  If  the  FIST  chief  does 
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not  have  enough  assets  available  at  his  level,  he  requests  additional  sup- 
port from  the  brigade  FSO  through  the  Bn  FSO..  If  the  target  has  an  imme- 
diate priority,  it  preempts  a current  mission.  The  brigade  FSO  goes  through 
a similar  process  of  matching  up  his  resources  with  his  priority  targets. 

If  all  assets  are  busy  at  the  brigade  level,  the  target  is  placed  in  a 
queue,  to  wait  until  an  appropriate  fire  support  asset  becomes  available. 
When  the  fire  support  asset  becomes  available,  the  FSCOORD  at  the  appro- 
priate level  checks  for  the  highest  priority  target  waiting  to  be  serviced. 
He  selects  the  highest  priority  target  that  can  be  fired,  allowing  under 
utilization  of  the  asset  in  exchange  for  getting  the  highest  priority 
target  serviced.  These  decisions  depend  upon  a number  of  factors  and 
current  constraints  generated  in  the  scenaria  used  and  the  "commander's 
gui dance" . 

This  coordination  and  decision  making  function  could  be  simulated 
through  the  use  of  a fire  support  coordination  array  (FSCOORD  array)  of 
priorities.  Based  upon  military  judgement  for  the  situation  and  on  the 
scenario  modeled,  a rank  order  of  effectiveness  and  priority  could  be 
devised  to  facilitate  the  FSCOORD  planning  and  decisions.  A sample  array 
is  shown  in  Table  I.  As  an  example  of  the  array's  use,  consider  a 
mission  type  of  air  defense  suppression  (mission  type-2).  The  array 
indicates  that  the  best  asset  is  AAH  (the  lowest  number  in  row  two).  If 
the  AAH  asset  was  available,  the  FIST  chief  would  request  it  through  the 
battalion  operations  officer.  If  the  AAH  was  not  available,  155mm  cannon 
artillery  would  be  requested.  If  no  appropriate  asset  was  available,  the 
target  would  be  placed  in  a queue,  waiting  until  an  asset  became  available. 
When  an  asset  became  available,  it  would  take  the  target  with  the  highest 
priority  as  long  as  the  asset  was  capable  of  servicing  that  target. 
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A number  of  logical  rules  would  have  to  be  formulated  to  ensure 
that  appropriate  decisions  were  simulated  for  the  FIST  chief/Bn  FSO  and 
the  Bde  FSO.  The  following  set  of  rules  if  for  purposes  of  illustration 
only: 

1 - If  requesting  an  A-10  asset,  enemy  air  defense  would  have  to 
be  suppressed  prior  to  committing  the  A-10's  (AAH  or  other  asset). 

2 - If  the  target  was  a moving  target,  it  would  be  cancelled  if 
more  than  three  minutes  had  elapsed  since  the  position  had  been 
reported. 

3 - If  the  target  was  stationary,  it  would  be  cancelled  if  more 
than  20  minutes  had  elapsed  since  its  position  had  been  reported 
(this  time  would  be  a function  of  target  type). 

4 - Targets  with  a large  potential  error  in  location  might  not  be 
engaged,  depending  upon  the  target  type  (a  soft,  stationary, 
important  target  likeaRed  division  command  post  would  be  attacked 
even  if  the  error  in  location  is  potentially  large). 

5 - Target  must  be  within  range  of  asset. 

E.  MOVING  FIRING  UNITS 

The  Field  Artillery  moves  only  to  continue  the  mission  or  to  increase 
survivability.  New  locations  for  artillery  units  necessary  to  support 
anticipated  maneuver  force  movements  would  be  preplanned.  When  a 
specified  event  occurs  (e.g.  the  battalion  task  force  moves  to  alternate 
positions  or  the  brigade  counterattacks),  the  artillery  will  move  to 
the  preplanned  positions,  ensuring  that  the  movement  of  firing  units 
does  not  interfere  with  providing  continuous  fire  support.  The  duration 
of  travel  and  the  time  required  to  be  ready  to  fire  would  be  predetermined 
insofar  as  possible.  When  the  firing  unit  reaches  the  new  position  and 
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occupies  it,  the  firing  unit  would  be  available  for  missions  (minus  any 
assets  lost  enroute  to  enemy  fire). 

A similar  method  would  be  used  to  move  firing  units  to  alternate 
positions  within  the  same  general  vicinity  (1-2  kilometers  per  move). 

The  criteria  that  would  trigger  such  a move  to  an  alternate  position 
could  be  incoming  fire,  a given  damage  incurred,  or  a specified  number 
of  vol  leys  fi  red. 

F.  CONCLUSION 

The  battalion  Field  Artillery  model  was  developed  to  provide  the 
basic  FA  building  block  for  the  FA  brigade  model  and  the  major  extensions 
needed  to  construct  the  brigade  model  were  discussed.  Both  the  FA 
battalion  model  and  the  framework  for  the  FA  brigade  model  have  been 
developed  with  the  goal  of  providing  a high  resolution  Field  Artillery 
model  that  will  assist  the  analyst  in  understanding  the  relationships 
and  interactions  of  Field  Artillery  in  the  combat  environment.  It  is 
intended  that  the  current  FA  model  be  extended  and  improved  concurrently 
with  the  STAR  model,  with  the  objective  of  providing  a versatile  mid- 
resolution combined  arms  combat  model  for  a wide  variety  of  military 
appl ications . 
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APPENDIX  A 


INPUT  REQUIREMENTS 


General 

ATI  Simscript  input  for  the  FA  model  is  in  free  field  card  input; 
that  is,  each  data  value  must  be  separated  by  a blank  space.  This 
is  the  only  formatting  requirement.  The  Simscript  language  also  has 
a capability  to  read  in  two  dimensional  arrays,  reading  in  the  values 
row  by  row  (e..g.,  list(l,l).  List  1,2),...).  A sample  card  or  cards 
follows  the  discussion  of  each  set  of  input  values  described  below. 

Table  II  is  a complete  list  of  sample  data  in  the  required  form. 

RN.  STREAM,  DEBUG,  FO.  MIN.  RANGE,  FO.  MAX  ..RANGE 

RN. STREAM  is  an  integer  variable  equal  to  the  selected  random  number 
stream.  OEBUG  is  an  integer  variable  that  designates  the  amount  of  FA 
output  required  (1  - no  additional  data,  1 - each  event  documented, 

5 - each  event  documented  and  the  array  called  CLUSTERS  printed),  FO . 
MIN. RANGE  and  FO. MAX. RANGE  are  integer  variables  whose  values  are  the 
FO's  minimum  and  maximum  allowable  range  within  which  he  is  allowed  to 
initiate  a fire  mission.  These  values  could  appear  on  a card  as: 

5 5 100  3800 

which  represents  the  fifth  random  number  stream,  a DEBUG  value  that 
documents  each  event  and  prints  the  array  called  CLUSTERS,  and  FO  minimum 
and  maximum  opening  ranges  of  100  meters  and  3800  meters,  respecti vel v. 

BOX. TOLERANCE,  MISS . TOLERANCE , FWD.JBS. MSN. TOLERANCE 

BOX. TOLERANCE  is  the  length  of  each  side  of  the  'box'  used  to  cluster 
vehicles.  MISS. TOLERANCE  is  an  integer  variable  equal  to  the  minimum 
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TABLE  II.  Complete  list  of  sample  input  data. 


5 5 100  3800 
300  300  50 

3 3 1 11 
3 8 1 5 
3 8 4 2 1 4 
3 0 3 
3 0 50 

3 78  79 

1 -3550  1200 
1 -3000  900 

1 150  -4500 

4 1 -3500  1200  1000  1 13000  3 

4 1 -3500  950  1000  1 18000  3 

4 1 200  -4500  1000  2 21000  2 

6 0 12000  12000  1000  4 18000  2 

6 0 14000  13000  1000  4 18000  2 

6 0 11500  12500  1000  4 18000  2 

6 0 13000  12000  1000  4 13000  2 

6 0 14500  13500  1000  4 18000  2 

6 0 10500  12500  1000  4 18000  2 

6 0 15500  12000  1000  4 13000  2 


6 0 15000  15000  1000  5 21000  .1 


0 

0 

0 

0 

0 

0 

100 

300 

400 

0 

0 

0 

0 

0 

0 

200 

700 

900 

0 

0 

0 

0 

0 

0 

600 

1000 

20C0 

100 

100 

200 

100 

600 

100 

0 

0 

0 

100 

100 

200 

100 

200 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

20 

40 

80 

0 

0 

0 

0 

0 

0 

20 

40 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 

10 

80 

30 

100 

30 

0 

0 

0 

20 

20 

60 

60 

100 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

200 

400 

500 

0 

0 

0 

0 

0 

0 

400 

1000 

1200 

0 

0 

0 

0 

0 

0 

1000 

3000 

4000 

400 

400 

400 

300 

1000 

200 

0 

0 

0 

300 

300 

200 

200 

400 

200 

0 

0 

0 

0 

0 

0 

0 

0 

0 

50 

100 

200 

0 

0 

0 

0 

0 

0 

40 

100 

200 

0 

0 

0 

0 

0 

0 

0 

0 

0 

50 

50 

100 

100 

150 

100 

0 

0 

0 

50 

50 

100 

100 

130 

150 

0 

0 

0 

0 

0 

0 

0 

0 

0 

300 

500 

600 

0 

0 

0 

0 

0 

0 

400 

900 

1000 

0 

0 

0 

0 

0 

0 

300 

2000 

3000 

300 

300 

300 

300 

700 

100 

0 

0 

0 

200 

200 

100 

100 

300 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

30 

60 

100 

0 

0 

0 

0 

0 

0 

40 

80 

150 

0 

0 

0 

0 

0 

0 

0 

0 

0 

50 

50 

30 

30 

100 

100 

0 

0 

0 

40 

40 

100 

100 

150 

150 

0 

0 

0 
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radial  distance  between  the  adjusting  round  and  the  target,  within  which 
the  FO  is  allowed  to  enter  the  FFE  phase  FWD.OBS. MSN. TOLERANCE  is 
equal  to  the  minimum  distance  allowed  between  the  two  fire  missions  be- 
fore the  FDC  cancels  the  more  recent  of  the  two  fire  missions.  These 
values  could  appear  on  a data  card  thus: 

300  300  50 

which  represents  the  size  of  the  box  as  300  meters,  the  tolerance  between 
the  adjusting  round  and  the  target  as  300  meters,  and  the  tolerance 
between  two  current  missions  as  50  meters. 

N. FO,  N.FDC,  N. RADIO,  N. BATTERY 

The  addition  of  the  prefix  ' N . ' to  an  entity's  name  is  a system 
variable  that  equals  the  total  number  of  entities  of  that  type.  The 
command,  "CREATE  EACH  'ENTITY',"  creates  the  number  of  entities  specified 
in  "N. ' ENTITY'" . N.FO  is  the  number  of  FOs  to  be  created,  N.FDC  is  the 
number  of  FDCs  to  be  created,  N. RADIO  is  the  number  of  radio  frequencies 
to  be  created,  and  N. BATTERY  is  the  number  of  firing  units  to  be  created. 
These  values  could  appear  on  a card  thus: 

3 3 1 II 

which  represents  3 FOs,  3 FDCs,  1 radio  frequency,  and  II  firing  units. 

AMT. BLUE. 3ATTERYS,  AMT.RED.3ATTERYS,  MAX. NUMBER ,0F .MI SS IONS . 

PER . FO , AMT. CALIBERS 

AMT. BLUE. BATTERYS  is  the  number  of  Blue  firing  units  created.  AMT. 
RED.3ATTERYS  is  the  number  of  Red  firing  units  created.  MAX. NUMBER. Ur . 
MISSIONS. PER. FO  is  the  maximum  number  of  fire  missions  that  any  FO  is 
allowed  to  process  simultaneously.  AMT. CALIBERS  is  the  number  of  differ- 
ent artillery  weapon  systems.  These  values  could  appear  on  a data  card 


3 8 15 


which  represents  3 Blue  firing  units,  8 Red  firing  units,  the  maximum 
missions  per  FO  as  1,  and  5 different  artillery  weapon  systems. 

NO. RANGE. BANDS,  AMT . FA. TIME . DELTAS , LARGEST  .NUM.WPNS. 

AMT. AMMO. TYPES.  AMT.MRL,  AMT. FFE . VOLLEYS 

NO. RANGE. BANDS  is  the  number  of  range  bands  used  in  array  RANGE. 
BANDS.  AMT. FA. TIME . DELTAS  is  the  number  of  time  parameters  used  in 
array  FA. TIME . DELTAS.  LARGEST. NUM. WEAPONS  is  the  maximum  number  of 
weapons  in  any  Blue  firing  unit.  AMT. AMMO. TYPES  is  the  number  of  dif- 
ferent types  of  ammunition.  AMT.MRL  is  the  number  of  MRL  batteries. 

AMT. FFE. VOLLEYS  is  the  number  of  the  volleys  to  be  fired  in  the  FFE 
phase.  These  values  could  appear  on  the  data  card  thus: 

3 8 4 2 1 4 

which  represents  3 range  bands,  8 different  time  parapmeters,  4 weapons, 
2 types  of  ammunition,  1 MRL  battery,  and  4 volleys  in  the  FFE  phase. 


TGT.ACQ. ERROR 

TGT.ACQ. ERROR  is  a two  dimentionsl  array  containing  the  error  para- 
meters of  the  error  distribution  for  the  FO's  observation  device, 
different  for  each  device  (measured  in  meters).  The  first  subscript 
indicates  the  type  of  observation  device  (1  - laser,  2 - binoculars) 


and  the  second  subscript  indicates  the  parameters  that  characterize  the 
distribution.  If  the  value  in  the  first  column  equals  1,  the  error  is 
deterministic  with  a value  equal  to  the  second  column.  If  the  value  in 
the  first  column  is  equal  to  2,  the  distribution  is  uniform,  with  end- 


points in  the  second  and  third  columns.  If  the  value  in  the  first  column 


is  equal  to  3,  the  error  is  from  a normal  distribution,  with  a mean  equal 
to  the  value  in  the  second  column,  and  a standard  deviation  equal  to  the 
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value  in  the  third  column. 
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The  data  might  appear  on  two  cards  thus: 

3 0 2.5 

3 0 50 

which  represents  the  error  as  resulting  from  the  use  of  a laser  as  from 
a Normal (0,2.5)  distribution  and  the  error  resulting  from  the  use  of 
binoculars  as  Normal (0,50) . 

FQ. VEHICLE 

FO. VEHICLE  is  a one  dimensional  array  containing  the  names  of  the 
vehicles  in  which  the  FOs  are  riding.  The  array  might  appear  on  a data 
card  thus: 

3 7S  79 

which  indicates  that  the  FOs  are  riding  in  vehicles  3,  7S,  and  79. 

Attri butes 

A number  of  attributes  of  permanent  entities  must  be  input  on  data 
cards.  In  the  discussion  that  follows,  real  variables  will  be  denoted 
by  an  R in  parentheses  following  the  attribute  name.  Real  attributes 
may  be  input  with  or  without  decimal  points.  Integer  variables  will  be 
denoted  by  an  I in  parentheses  following  the  attribute  name. 

FOC 

C0L0R.2  (I)  - A value  of  1 indicates  a Blue  unit.  A value  of  0 
denotes  a Red  unit. 

X. CUR2  (R)  - The  FDC's  X coordinate  on  the  battlefield. 

Y. CUR2  (R)  - The  FDC's  Y coordinate  on  the  battlefield. 

The  data  might  appear  thus: 

1 -3550  1200 
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I 


-3000 


900 


1 150  -4500 

(Negative  coordinates  indicate  the  the  FDC  is  outside  the  10x10 
kilometer  box  used  for  the  ground  war  battlefield.) 

BATTERY 

NUM.GUNS  (I)  - Number  of  weapons. 

C0L0R1  (I)  - A value  of  1 indicates  a Slue  firing  unit.  A value 
of  0 indicates  a Red  firing  unit. 

X. CURl  (R)  - The  firing  unit's  X coordinate  on  the  battlefield. 

Y. CUR1  (R)  - The  firing  unit's  Y coordinate  on  the  battlefield. 
NUM.DPICM.LEFT  (I)  - The  basic  load  of  0P1CM  rounds  for  each 
firing  unit. 

CALIBER  (I)  - The  type  of  artillery  weapon  system: 

1 155mm 

2 2 03n»n 

3 GSRS 

4 152mm 

5 122mm  MRL 

MAX. RANGE  (I)  - The  maximum  range  of  the  firing  unit. 

RATE. OF. FIRE  (R)  - The  rate  of  fire  of  the  firing  unit  (in  rounds 
per  mi nute ) . 

The  data  might  appear  on  cards  as  shown  in  Table  III. 

ARTY, PK. TABLE.  LETHAL. RADIUS. ARRAY 

The  appropriate  lethal  area  for  the  damage  level,  ammunition  type 
used,  tyDe  artillery  weapon  system  fired,  and  type  target  fired  upon 

is  read  in  and  converted  to  probabilities  of  damage  (ARTY  PK. TABLE) 
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TABLE  III. 


Sample  data  input  for  attributes  of 
each  battery. 


4 

I 

-3500 

1200 

1000 

1 

1S000 

3 

4 

1 

-3500 

950 

1000 

1 

13000 

3 

4 

1 

200 

-4500 

1000 

21000 

6 

0 

12000 

12000 

1000 

4 

13000 

2 

6 

0 

14000 

13000 

1000 

4 

13000 

2 

6 

0 

11500 

12500 

1000 

4 

13000 

o 

5 

o 

13000 

12000 

1000 

4 

13000 

6 

0 

14500 

13500 

1000 

4 

13000 

6 

0 

10500 

12500 

1000 

4 

13000 

'y 

6 

0 

15500 

12000 

1000 

4 

13000 

D 

a 

15000 

15000 

1000 

5 

21000 

.1 

r 

and  lethal  radius  (LETHAL . RADIUS .TABLE ) . The  data  is  in  the  form  of  a 
4-dimensional  array.  The  first  subscript  indicates  the  damage  level, 
the  second  subscript  indicates  the  ammunition  type,  the  third  subscript 
indicates  the  weapon  type,  and  the  fourth  subscript  indicates  the  target 
type.  The  four  subscripts  have  the  following  values: 

Damage  level: 

1 - k-kill 

2 - f-kill 

3 - m-kill 
Ammunition  type: 

1 - DPI  CM 

2 - HE 

Artillery  weapon  type: 

1 - 155mm 

I 2 - 203mm 

3 - GSRS 
4-15  2mm 

5 - 122mm  MRL 

I Target  type: 

1 - XM1  105mm  main  gun 
2 - XM1  120mm  main  gun 
3 - IFV 
4 - I TV 
5 - DIVAD 
6 - DRAGON 

k 7 - T72 

3 - 3MP 
9 - 2SU 
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A typical  data  set  might  appear  as  follows: 


0 

0 

0 

0 

0 

0 

100 

300 

400 

0 

0 

0 

0 

0 

0 

200 

700 

900 

0 

0 

0 

0 

0 

0 

600 

1000 

2000 

100 

100 

200 

100 

600 

100 

0 

0 

0 

100 

100 

200 

100 

200 

100 

0 

0 

0 

This  is  a subset  of  the  entire  four  dimensional  array,  with  the  first 
subscript  equal  to  1 (k-kill)  and  the  second  subscript  equal  to  1 (DPICM). 

In  regards  to  this  input  array  the  rows  of  the  array  represent  the  weapon 
type  and  the  columns  of  the  array  represent  the  different  types  of  targets 
that  are  being  assessed  for  damage.  As  an  example  of  the  use  of  this  array, 
consider  the  data  set  above.  The  lethal  area  (k-kill)  associated  with  the 
155mm  round  (DPICM)  for  a T72  (target  type  7)  would  be  100  meters. 

TRAVEL. TIME. ARRAY 

TRAVEL. TIME. ARRAY  is  a two  dimensional  array  that  contains  the  average 
velocity  at  two-thirds  maximum  range  for  each  artillery  system/ammuni tion 
type.  The  first  subscript  indicates  the  type  of  ammunition  and  the 
second  subscript  indicates  the  artillery  weapon  type. 

Subscript  values: 

Ammuni ti on  type : 

1 - DPICM 

2 - HE 

Artillery  weapon  type: 

1 - 155mm 

2 - 203mm 

3 - GSRS 

4 - 152nm 

5 - 122mn  MRL 

These  values  could  appear  on  data  cards  thus: 


350  350  600  600  1200  1200  350  350  1200  1200 


where  the  first  entry  represents  the  velocity  of  350  meters  per  second 
(m/s)  for  DPICM/155mm,  the  second  entry  represents  a velocity  of 
350  m/s  for  HE/155mm,  and  the  third  entry  represents  the  velocity  of 
600  m/s  for  0PICM/203mm. 

DISPLACEMENT 

DISPLACEMENT  is  a real  3-dimensional  array  containing  the  displace- 
ment of  each  weapon  from  the  center  of  the  firing  unit  (Blue  firing 
units  only).  The  measurement  is  done  in  the  battlefield  coordinate 
ysstem  with  the  firing  unit  pointing  East  (measured  from  the  horizontal 
plane  parallel  to  the  X axis).  The  first  subscript  indicates  the 
weapon  number  (1  for  the  first  weapon,  2 for  the  second  weapon,  and 
so  on),  the  second  subscript  indicates  the  type  of  coordinate,  and  the 
third  subscript  indicates  the  number  of  the  firing  unit. 

Subscript  values: 

Weapon  number: 

The  number  of  the  weapon  in  the  firing  unit. 

Type  of  coordinate: 

1 - The  X coordinate. 

2 - The  Y coordi nate . 

Number  of  firing  unit: 

The  order  in  wfiich  the  firing  unit  was  created  (e.g.,  the  first 
firing  unit  created  is  1,  the  second  firing  unit  created  is  3, 
etc. ) . 

The  data  for  the  first  firing  unit  (the  third  subscript  is  egual  to  1) 
might  appear  on  data  cards  thus: 

1 73 


25 


-75 


-25  -25 

25  25 

-25  75 

In  this  example,  the  rows  indicate  the  weapon  number  and  the  columns  re- 
present the  coordinate  type.  As  an  example,  the  X coordinate  displace- 
ment for  the  second  weapon  (first  firing  unit)  would  be  -25  meters  from 
the  center  of  the  first  firing  unit  and  the  Y coordinate  displacement 
for  the  second  weapon  (first  firing  unit)  would  be  -25  meters  from  the 
center  of  the  first  firing  unit. 

RANGE . BANDS 

RANGE. BANOS  is  a two  dimensional  array  containing  the  range  bands  of 
the  piecewise  linear  approximations  of  the  impact  point  dispersion 
curves.  In  the  array,  the  first  subcript  indicates  the  breakpoint  in 
kilometers  from  the  weapon  and  the  second  subscript  indicates  the  type 
of  artillery  weapon  system. 

Subscript  values: 

Breakpoint: 

The  appropriate  breakpoint  (endpoint)  of  the  linear  approximation. 
Artillery  weapon  type: 

1 - 155mm 

2 - 203mm 

3 - GSRS 

4 - I32mm 

5 - I 2 Emm  MRL 

The  data  might  appear  on  cards  thus: 
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4 


6.3 

7.6 

15 

5.5 

6.7 

12.7 

15..  4 

30 

11.5 

13.7 

19 

23 

35 

17.2 

20.4 

The  rows  indicate  the  breakpoints  and  the  columns  indicate  the  different 
types  of  artillery  weapons.  As  an  example,  to  determine  the  range  bands 
for  the  203mm  (second  column):  the  first  range  band  starts  at  7.6  kilo- 
meters (the  first  breakpoint),  the  second  range  band  starts  at  15.4  kilo- 
meters (the  second  breakpoint),  and  the  second  range  band  stops  at  23 
kilometers  (the  third  breakpoint). 


SIGMA. OPICM 

N 

SIGMA. DPICT  is  a three  dimensional  array  containing  the  standard 
deviations  for  the  normal  distribution  that  characterizes  the  dispersion 
of  round/MPI  impact  (OPICM  only), in  meters.  The  first  subscript  indi- 
cates the  range  band,  the  second  subscript  indicates  the  type  of  standard 
deviation,  and  the  third  subscript  indicates  the  type  of  artillery  weapon. 

Subscript  values: 

Range  band: 

The  representati ve  range  band. 

Type  of  standard  deviation: 

1 - Standard  deviation  (range)  for  precision  accuracy  (round  to 

round  variation) . 

2 - Standard  deviation  (deflection)  for  precision  accuracy. 

3 - Standard  deviation  (range)  for  observer  adjusted  (MPI). 

4 - Standard  deviation  (deflection)  for  observer  adjusted  (MPI 

for  a vol ley ) . 

5 - Standard  deviation  (range)  for  MET  + VE  (meteorological  and 

velocity  error)  (unobserved  fire  that  used  registration 
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A 


firings  that  corrected  for  meteorological  conditions). 

6 - Standard  deviation  (deflection)  for  MET  + VE. 

Artillery  weapon  type: 

1 - 155mm 

2 - 203mm 

3 - GSRS 
4-15  2mm 

5 - 122mm  MRL 

The  two  dimensional  subset  array  that  applies  to  the  155mm  (the  third 


subscri pt 

is  equal 

to  1 ) 

mi  ght 

appear  on  ca 

30 

5 

40 

30 

30 

20 

60 

10 

60 

40 

60 

40 

90 

15 

30 

50 

90 

60 

where  the 

row  indie 

:ates 

the  range 

band 

and 

values  1 to  6.  As  an  example,  the  standard  deviation  of  range  for 
precision  accuracy  (155mm)  is  30  meters  at  the  first  breakpoint  of  the 


range  band,  the  standard  deviation  is  50  meters  at  the  second  breakpoint 
and  the  value  is  90  meters  at  the  last  breakpoint  (end  of  the  second 
range  band). 

FA. TIME. DELTAS 

FA . TIME . DELTAS  is  a two  dimensional  array  containing  the  parameters 
of  the  di stri butions  that  characteri ze  the  time  required  to  accomplish 
specified  tasks  (measured  in  seconds).  The  first  subscript  indicates 
the  task  and  the  second  subscript  indicates  the  parameter  of  the 
distribution. 
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Task: 

1 - Update  cluster. 

2 - Time  required  for  FO  to  calculate  his  mission  and  code  his 

mission  into  his  message  device. 

3 - Time  for  the  FO  to  communicate  fire  request  to  FDC. 

4 - Processing  time  in  the  FDC. 

5 - Time  required  in  the  firing  battery  to  fire. 

6 - Time  for  the  FO  - subsequent  adjusting  round. 

7 - Time  required  for  the  firing  unit  - adjusting  round. 

3 - Time  required  for  FO  to  end  the  mission  after  last  volley 

impacts . 

If  the  value  in  the  first  column  equals  1,  the  error  is  deterministic 
with  a value  equal  to  that  in  the  second  column.  If  the  value  in  the 
first  column  is  2,  the  distribution  is  uniform  with  end  points  in  the 
second  and  third  columns.  If  the  value  in  the  first  column  is  equal  to 
3,  the  distribution  is  normal , with  a mean  equal  to  the  value  in  column 
two,  and  a standard  deviation  equal  to  the  value  in  the  third  column. 
The  data  might  appear  on  cards  thus: 


1 

30 

0 

9 

25 

30 

9 

5 

7.5 

12.5 

3 

25.35 

2.25 

y 

15 

20 

l 

17.5 

25 

i 

10 

9 

As  an  example,  the  time  required  for  the  FO  to  transmit  his  message  (row 
3)  is  character!' zed  by  a uniform  distribution,  with  end  points  2 and  5. 
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